Question

excel VB 如何通过控件把sheet1的内容逐行输出到sheet2

上面是sheet1,下面是sheet2
请稍微详细一点，比如说控件用什么类型的控件之类，然后最重要的是，我在sheet1里输入的是只能是某一个人信息，通过按保存之后要在SHEET2里面根据相应的条目逐行保存下来，我按一次“保存”，就保存到A2行，再按一次就继续保存到A3行，就这样。。。万分感谢！





Answer 1

你需要逐行复制，还是指定行复制？

指定行复制，鼠标点在哪个列就复制那一列

Private Sub CommandButton1_Click()
Dim i As Integer   #定义变量i为个人信息数
For i = 1 To 7
Sheets("sheet2").Cells(ActiveCell.Column, i) = Sheets("sheet1").Cells(i, ActiveCell.Column)
Next i
End Sub

Answer 2

Private Sub CommandButton1_Click()
    AR = Worksheets("sheet1").Range("B1:B7")
    Worksheets("sheet2").Range("A" & Worksheets("sheet2").Range("a65536").End(xlUp).Row + 1).Resize(, 7) = Application.Transpose(AR)
    Worksheets("sheet1").Range("B1:B7").ClearContents
End Sub