Question

excel VBA中 Range函数将列作为变量怎么表示？

excel VBA中 我想使用Range函数将列作为变量怎么表示,比如Range("a3:a2012"),Range("b3:b2012"),Range("c3:c2012"),怎么将a,b,c作为变量表示,谢谢!
Workbooks(1).Sheets(2).Range(""m" & 2: "m" & 2012").Value = Workbooks(2).Sheets(7).Range("C3:C2012").Value

Answer 1

直接用就是了:

function getRange(col as string)
     getRange = Workbooks(1).Sheets(2).Range(col & "2:" & col & "2012")
     '或者
     'getRange = Workbooks(1).Sheets(2).Range(Replace("a2:a2012","a", col))
end function 

getRange("B") 'Workbooks(1).Sheets(2).Range("B2:B2012")
getRange("AB") 'Workbooks(1).Sheets(2).Range("AB2:AB2012")

Answer 2

range(变量a & "3:" & 变量a & "2012")

Answer 3

Range(cells(3,i),cells(2012,i)) , i 可以是123，代表a,b,c

Answer 4

从一个工作表中提取数据到另一个工作表，一般思路是从第一个表中将数据装入数组，再将数组装入第二个表。
例如：
Arr=Sheet1.range("a1:a100")
sheet2.range("a1").resize(ubound(arr),ubound(arr,2))=arr