|
向老师们请教一代码的改法
开始行 = 2
数据列 = "C"
最后非空行 = sht.Cells(Rows.Count, 数据列).End(xlUp).Row '最后一个非空单元格行数
If (Not Intersect(Target, Range("C2:C" & 最后非空行)) Is Nothing) And Target.Count = 1 Then
把红色行中,C改成:数据列 2改成:开始行
我改成下面这样,没有成功,请教老师们这个应该怎么改,谢谢大家了!
If (Not Intersect(Target, Range("数据列 & 开始行 :数据列" & 最后非空行)) Is Nothing) And Target.Count = 1 Then
Range("数据列 & 开始行 :数据列" & 最后非空行)
改为
Range(cells(开始行,数据列),cells(最后非空行,数据列))
|
|