Range(Split(Range("A1")(1, i).Address, "$")(1) & "1:" & Split(Range("A1")(1, i).Address, "$")(1) & Cells(65525, 2).End(xlUp).Row).Select
    ActiveSheet.Shapes.AddChart.Select 什么意思啊？

这貌似操作excel部分的语句（好像还有图表）

是的。主要是其中的Address属性，弄不懂

是的。

Range("A1")(1, 2) ==〉"A1" 同一行，第二列对应的单元格 即B1
Range("A1")(1, 2).Address ==〉B1的绝对引用 $B$1
Split ==〉 分隔
Cells(65525, 2).End(xlUp).Row =〉第二列，从Excel底部往上查找非空值行数
Ex i= 3，Cells(65525, 2).End(xlUp).Row = 100，那么
Range(Split(Range("A1")(1, i).Address, "$")(1) & "1:" & Split(Range("A1")(1, i).Address, "$")(1) & Cells(65525, 2).End(xlUp).Row).Select
就是指 Range("C1:C100")
其实取这个区域可以不用这么麻烦，用Offset就可以了

我用OFFset了但是他显示函数没有被定义什么的

很感谢你，

参考下
OFFSET(C2,X,Y) 为C2 单元格位移（X，Y）的单元格，设 X = 2，Y = 3 则表示 单元格E5
M表示区域包含M行，设 M = 2
N表示区域包含N列，设 N = 3
SUM(OFFSET(C2,X,Y,M,N))表示 对区域 E5:G6 求和

另外，Range取区域不一定非要用"A1：C3"等表示，也可以用两个Cell来取，比如Range(Sheet.cells(1,1),Sheet.cells(3,3))

[ 本帖最后由 owenlu1981 于 2014-3-19 21:31 编辑 ]