如何使用宏按钮将数据从数据表添加到另一个工作表？

Question

我想用数据表中的按钮添加数据到帐单表，但它不起作用。当我在bill表运行时代码工作正常，但是当我在数据表中运行代码时，代码无效。

这是我的代码：

Sub Button1_Click()
Dim i As Integer

For i = 22 To 42
If IsEmpty(Range("C" & i)) Then

Sheets("PRICE LIST").Range("C3").Copy Destination:=Sheets("INVOICE EU").Range("C" & i)
Sheets("PRICE LIST").Range("D3").Copy Destination:=Sheets("INVOICE EU").Range("E" & i)
Sheets("PRICE LIST").Range("E3").Copy Destination:=Sheets("INVOICE EU").Range("K" & i)
Sheets("INVOICE EU").Range("L" & i).Value = Sheets("PRICE LIST").Range("F3").Value

Exit For

Else
End If
Next i

End Sub

数据表是PRICE LIST，而Bill表是INVOICE EU

Answer 1

你提到宏对不同的纸张有不同的效果。下面定义的行取决于具有焦点的工作表

If IsEmpty(Range("C" & i)) Then

在检查范围c22：c42？

时，是否可能要引用特定的工作表？