复制&将单元格从一张纸粘贴到另一张纸上

时间:2018-01-16 13:37:11

标签: excel vba

我需要一个从一张纸上移动特定单元格的VBA代码(在代码中也可以称之为Sheet1),单元格需要复制:AA5,AA6,AA7,AA8& AA10。

复制的细胞需要需要连续粘贴到另一张纸(sheet2)(AA5-A,AA6-B,AA7-D,AA8-F,& AA10-G)显然,使用A,B等我是指sheet2中的列。

1 个答案:

答案 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