我需要一个从一张纸上移动特定单元格的VBA代码(在代码中也可以称之为Sheet1),单元格需要复制:AA5,AA6,AA7,AA8& AA10。
复制的细胞需要需要连续粘贴到另一张纸(sheet2)(AA5-A,AA6-B,AA7-D,AA8-F,& AA10-G)显然,使用A,B等我是指sheet2中的列。
答案 0 :(得分:0)
如果要将单元格A1复制,例如从Sheet1复制到Sheet2
Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value
如果要复制多个单元格,请创建一个函数
Sub paste()
Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value
Sheets("Sheet2").Range("A2").Value = Sheets("Sheet1").Range("A2").Value
Sheets("Sheet2").Range("A3").Value = Sheets("Sheet1").Range("A3").Value
End Sub
然后打电话给你这样的方法:
Call paste()
让我知道更多信息
或许你想要这样做:
Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value & "," & Sheets("Sheet1").Range("A2").Value