遍历表修改行

xing_chen · 发表于 2022-11-17 20:56

老师，有簿中有多表，我希望按目录表B列单元格字符修改其他各表第2行的字符，敬请老师赐教。

3190496160 · 发表于 2022-11-17 21:26

Sub xiugai()
With Sheets("目录")
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:b" & r)
End With
For i = 2 To UBound(ar)
If Trim(ar(i, 2)) <> "" Then
Sheets(i).[a2] = ar(i, 2)
End If
Next i
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-11-17 21:27

讨教221118.rar (9.45 KB, 下载次数: 8)

哒哒哒是的撒多 · 发表于 2022-11-17 21:37

讨教221118.zip (19.66 KB, 下载次数: 3)

xing_chen · 发表于 2022-11-17 22:34

哒哒哒是的撒多发表于 2022-11-17 21:37

谢谢老师！运行如愿！

xing_chen · 发表于 2022-11-17 22:37

3190496160 发表于 2022-11-17 21:27

谢谢老师！原上传的表格运行顺利。但我在此簿中插入3个工作表，并修改为For i =5 To UBound(ar)时未能如愿。

3190496160 · 发表于 2022-11-18 09:44

xing_chen 发表于 2022-11-17 22:37
谢谢老师！原上传的表格运行顺利。但我在此簿中插入3个工作表，并修改为For i =5 To UBound(ar)时未能如 ...

呵呵，好模糊的反馈

xing_chen · 发表于 2022-11-18 09:59

3190496160 发表于 2022-11-18 09:44
呵呵，好模糊的反馈

老师，我这样的反馈是有点模糊，抱歉！我的意思是，按我上传的工作簿，你赐教的代码运行顺利。后我在线下将此工作簿中插入了4个工作表，将遍历工作表从第5个开始，就出错了。不知是何因?

3190496160 · 发表于 2022-11-18 10:02

xing_chen 发表于 2022-11-18 09:59
老师，我这样的反馈是有点模糊，抱歉！我的意思是，按我上传的工作簿，你赐教的代码运行顺利。后我在线下 ...

Sheets(i).
代码取得是工作表在工作簿中的顺序号，所以，一旦插入工作表，顺序号就变了，不知道你是在哪个位置插入工作表

xing_chen · 发表于 2022-11-18 10:18

3190496160 发表于 2022-11-18 10:02
Sheets(i).
代码取得是工作表在工作簿中的顺序号，所以，一旦插入工作表，顺序号就变了，不知道你是在哪 ...

老师，我是在“目录”表和“1”表间插入4个表，修改代码为For i = 5 To UBound(ar)，是否只修改这就可以了吧？

		自动登录	找回密码
密码			免费注册

[求助] 遍历表修改行

评分

评分