多区域填充，代码能不能再优化！

mhps159357 · 发表于 2024-4-23 11:33

有没有更优化的代码实现多区域填充！

liulang0808 · 发表于 2024-4-23 11:56

Application.ScreenUpdating = False
Range("a1:p100") = ""
For Each x In Array("e3:j5", "a10:f17", "j10:p15", "j16:n17")
      For Each sh In Range(x)
         k = k + 1
         sh.Value = Sheets("sheet2").Cells(k, 1)
      Next
Next
Application.ScreenUpdating = True
供参考

liulang0808 · 发表于 2024-4-23 11:59

Application.ScreenUpdating = False
Range("a1:p100") = ""
For Each sh In Union(Range("e3:j5"), Range("a10:f17"), Range("j10:p15"), Range("j16:n17"))

k = k + 1
sh.Value = Sheets("sheet2").Cells(k, 1)

Next
Application.ScreenUpdating = True
供参考

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

[求助] 多区域填充，代码能不能再优化！