Question

我无法弄清楚如何将某些细胞从一张纸复制到另一张纸上完全不同的细胞。第一张表格中包含一行（大部分）的所有数据（总共40行），每行都有一个宏按钮。按下这些按钮会将所述数据传输到第二张纸上的一行（最多三行可用），但单元格的顺序不同（不能更改）。 Catch是，我需要宏来检查第二张纸上的第一个单元格在粘贴之前是否为空（具有3个可用行的限制），并且如果所有三行都有数据提示清除数据（我已经创建了一个为此工作的宏）能够继续。我到目前为止的例子。我知道有40个不同的宏并不是最好的主意，但我不想使用ActiveCell功能（人们忘记点击所需的行）。我还上传了excel工作表的图片以帮助澄清，表1中的所有黄色单元格将被复制到表格2中的所有黄色单元格。我非常感谢帮助男孩和女孩。

http://i.stack.imgur.com/HYfFz.jpg

http://i.stack.imgur.com/AQagS.jpg

Sub LEG4EXPORT()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim alert As Variant

Set ws1 = Worksheets("Detail Log")
Set ws2 = Worksheets("Sheet 2")

ws1.Range("C20").Copy
ws2.Range("J5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ws1.Range("d20").Copy
ws2.Range("k5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ws1.Range("e20").Copy
ws2.Range("j8").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

alert = MsgBox("Do you want to add more data?", vbYesNo + vbQuestion)
If alert = vbYes Then
    Exit Sub
Else
    ws2.Activate
End If

End Sub

Excel VBA选择性复制和粘贴两个工作表之间

0 个答案: