如何在VBA中动态执行类似Excel的操作？

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook '引用当前工作簿
Set ws = wb.Worksheets("Sheet1") '引用名为"Sheet1"的工作表

Dim value As Variant
value = ws.Range("A1").Value '读取A1单元格的值
ws.Range("B2").Value = "Hello, World!" '将字符串写入B2单元格

ws.Range("C3").NumberFormat = "0.00" '设置C3单元格的数字格式为保留两位小数
ws.Range("D4:E6").Interior.Color = RGB(255, 0, 0) '设置D4:E6单元格的背景颜色为红色

ws.Rows(5).Insert '在第5行插入新行
ws.Columns("C:D").Delete '删除C列和D列

Dim chartObj As ChartObject
Set chartObj = ws.ChartObjects.Add(100, 100, 400, 300) '在指定位置添加图表
With chartObj.Chart
    .ChartType = xlColumnClustered '设置图表类型为柱状图
    .SetSourceData ws.Range("A1:B10") '设置图表的数据源
End With