excel表格怎样在sheet1的一个单元格中输入数据,然后在sheet2中指定位置自动的添加,然后sheet1中的数据删除后,sheet2中的数据还有,在sheet1的那个单元格中在输入一个新的数据后,sheet2中就会自动的在上一次的数据后添加这次的记录,
直白一点,就是我想在sheet1中做一个介面,输入大致的信息,记录保存在sheet2中。谢谢!
例如在sheet1的A1中输入1,按一下按钮,sheet2的A1中会自动出现1,然后在sheetA1中再输入2,按一下按钮,sheet2在A2中出现2,sheet2的A1值不会改变,SHEET1中A1数值改变,只要按下按钮,记录就会在SHEET2的A列一直记录下去。
追答你建一个按钮,再把下面的代码拷贝进去,assign给按钮就可以了。
Sub Button1_Click()
Dim InputArea As String
Dim OutputArea As String
Dim InputSheet As String
Dim OutputSheet As String
InputSheet = "Sheet1"
OutputSheet = "Sheet2"
InputArea = "A1"
OutputColumn = 1
'找到B列中没有值的位置
With Worksheets(OutputSheet)
LastRow = .Cells(65535, OutputColumn).End(xlUp).Row
If .Cells(LastRow, OutputColumn).Value = "" Then
.Cells(LastRow, OutputColumn).Value = Worksheets(InputSheet).Range(InputArea).Value
Else
.Cells(LastRow + 1, OutputColumn).Value = Worksheets(InputSheet).Range(InputArea).Value
End If
End With
End Sub