求大神excel公式 ，实现Sh1表输入内容，Sh2表自动按顺序记录
答案:1 悬赏:60 手机版
解决时间 2021-03-11 08:21
- 提问者网友：容嬷嬷拿针来
- 2021-03-11 01:32
求大神excel公式 ，实现Sh1表输入内容，Sh2表自动按顺序记录
最佳答案
- 五星知识达人网友：污到你湿
- 2021-03-11 02:27
上一个问题，给你回答了,
这次，代码里有解释
在SHEET1 复制代码
Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k = WorksheetFunction.CountA(Sheets(2).Range("B:B"))
If Tr = 1 And Tc = 1 Then '表示 A1
Sheets(2).Cells(k + 2, 2) = Sheets(1).Cells(1, 1) '表示表2的B列从B2(k + 2)开始，依次记录表1的A1(Cells(1, 1))
End If
End Sub
这次，代码里有解释
在SHEET1 复制代码
Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k = WorksheetFunction.CountA(Sheets(2).Range("B:B"))
If Tr = 1 And Tc = 1 Then '表示 A1
Sheets(2).Cells(k + 2, 2) = Sheets(1).Cells(1, 1) '表示表2的B列从B2(k + 2)开始，依次记录表1的A1(Cells(1, 1))
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯