Question

如何在VB中copy Excel中的某一列的值

如何在VB中copy Excel中的某一列的值
例如，
for i = 3 to 任意值
' 这里要写copy从sheet1的第i列第2行开始复制直到最后一行的代码
' 这里写粘贴从sheet2的第k列第31行开始粘贴的代码
next i

求高手赐教，如对我有帮助我会追加悬赏再采纳的

Answer 1

for i = 3 to 任意值宏纤巧
' 这里要写竖老copy从sheet1的第i列第2行开始复制直到最后一行的代码
' 这里写蔽键粘贴从sheet2的第k列第31行开始粘贴的代码

sheets("sheet2").cells(i+28,11)=sheets("sheet1").cells(i-1,9)
next i

Answer 2

用一句就好了备银嘛，不散慧需要2句的：
sheets("sheet1").Range(cells(2,i),cells(x,i)).Copy Destination:=sheets("sheet2").range("K31")
语句中的x变量指的是sheet1的第i列的最后一行的冲滚答行号！