发布网友 发布时间:2022-04-23 11:51
共2个回答
热心网友 时间:2023-10-18 17:27
基本表 的A1输入数据 ,生成表的C列依次记录数据
在基本表 右键表名,查看代码,复制代码
Private SubWorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k =WorksheetFunction.CountA(Sheets("生成表).Range("C:C"))
If Tr = 1 And Tc = 1 Then
Sheets("生成表").Cells(k + 1, 3) =Sheets("基本表").Cells(1, 1)
End If
End Sub
热心网友 时间:2023-10-18 17:28
这个用VBA写个宏代码就可以了,公式做不到。