excel vba 数据追加问题？

Set sht = Workbooks("C.xlsx").Sheets("S1")

  ThisWorkbook.Sheets(2).Range(Cells(1, 1).Address &":" &Cells(3, 3).Address).Copy sht.Range("B" &"3")

原代码报错原因，代码执行的工作簿就是活动工作簿，而目标又是活动工作簿中的"S1"表，但该表在文件C中，不在活动工作簿中，所以找不到。

方法1:A列没有任何数据时,Row获得的最后一行有数据的行号是1, 数据会从row+1行开始,也就是第二行,要想从第一行写入数据 要用代码判断调整.(代码中没有做这个判断)

Private Sub CommandButton1_Click()

With Sheets(1)

Row = .Range("A65536").End(xlUp).Row

.Range("A" &Row + 1).Value = TextBox1.Value

End With

End Sub

方法2: 定义了一个公共变量N来记录有数据的行.每点一次按钮 N变量加1.

Dim N As Long

Private Sub CommandButton1_Click()

N = N + 1

Sheets(1).Range("A" &N).Value = TextBox1.Value

End Sub

---