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

Question

如何在VB中copy Excel中的某一列的值
例如，
for i = 3 to 20
' 这里要写copy第i列的整列的值的代码，注意是列的不是行的哦
' 这里写粘贴的代码，粘贴到另外一个sheet里面去
next i

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

Answer 1

最简单的是用宏记录，再修改成你要的列数
如果要手动编写的话，我觉得直接赋值方便。

追问

你好，先谢谢你的回答
我之前说的还不是很清楚，是这样的
我从sheet1的第i列第2行开始复制直到最后一行，从sheet2的第k列第31行开始粘贴
请问这样子应该要怎么写呢

追答

直接赋值的话，表2的k31=表1的i2其中行号用循环每次十1，直到表1的行数
复制的话选择表1的i2到i2。End(xLDoWn)。cOpy 再选择表2的k31再粘贴。或直挍复制到位。还不知道怎么操作，就晚上我写代码传给你。我手机不好操作
.
Sub 复制表1粘贴表2()
Sheets("Sheet1").Select
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("K14").Select
ActiveSheet.Paste
End Sub
Sub 直接赋值()
x = 14 - 1 '从表2d的x+1列开始粘贴
y = 2 - 1 '从表1的y+1列开始复制
Sheets("Sheet1").Range("I2").Select
Z = Range(Selection, Selection.End(xlDown)).Count
For i = 1 To Z
x = x + 1
y = y + 1
Sheets("Sheet2").Range("k" & x) = Sheets("Sheet1").Range("i" & y)
Next i
End Sub

Answer 2

您好，我这代码只提供参考，具体你根据要求自己编写：
================================================
Sub Copy1()

Dim c As String
Dim p As String

For i = 1 To 3

c = Chr(64 + i) & ":" & Chr(64 + i)
p = Chr(67 + i) & ":" & Chr(67 + i)

Columns(c).Select
Selection.Copy
Sheets("Sheet2").Select
Columns(p).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Next i

Application.CutCopyMode = False

End Sub
=====================================
※ 提示：Chr(65) = A
※ 本代码只限 A - Z 列 AA后要令编。

追问

你好，先谢谢你的回答
我之前说的还不是很清楚，是这样的
我从sheet1的第i列第2行开始复制直到最后一行，从sheet2的第k列第31行开始粘贴
请问这样子应该要怎么写呢

追答

把i列第2行到最后一行复制到sheet2的K31
把i+1列第2行到最后一行复制到sheet2的L31
把i+2列第2行到最后一行复制到sheet2的M31
是这样吗？

Answer 3

3到20是连续的，为何用循环，这会降低运行速度的。复制3到20 on error resume (cells(1,3),cells(65536,21)).select selection.copy '贴到另一表中，比如贴到sheet2中，selection.pastespecialxlpastevalues'换行自己调整一下，我用手机上打的

追问

你好，先谢谢你的回答
我之前说的还不是很清楚，是这样的
我从sheet1的第i列第2行开始复制直到最后一行，从sheet2的第k列第31行开始粘贴
请问这样子应该要怎么写呢

Answer 4

上个图比怎么说都要好啊。。。。。。

Answer 5

Columns(i).Copy
粘贴到另外哪一个sheet的哪里面去?

追问

你好，先谢谢你的回答
我之前说的还不是很清楚，是这样的
我从sheet1的第i列第2行开始复制直到最后一行，从sheet2的第k列第31行开始粘贴
请问这样子应该要怎么写呢