如何将选择的区域变量使用？

大象无痕 · 发表于 2024-11-9 16:27

Sub cs1109()
Dim i As Integer
i = 1
Do While Range("B" & i) = ""
Range("B" & i) = 0
i = i + 1
Loop
Range("A1:B&i").Select
Selection.Delete Shift:=xlUp
End Sub
-------------------------------请教如何修改，使得可以选择区域可以是变化的？

jyfscn · 发表于 2024-11-9 18:07

cells(x,y)这种就可以变化，x,y都是变量，按你的需要设定就可以

jyfscn · 发表于 2024-11-9 18:09

比如x=i+1, y=x+1, 然后cells(x,y).select就是一个变量了

ykcbf1100 · 发表于 2024-11-9 19:01

Range("A1:B&i").Select这句代码有错，正确应该如下：
Range("A1:B" & i).Select

大象无痕 · 发表于 2024-11-9 20:54

ykcbf1100 发表于 2024-11-9 19:01
Range("A1:B&i").Select这句代码有错，正确应该如下：
Range("A1:B" & i).Select

太感谢了，问题解决了

taller · 发表于 2024-11-10 08:20

' VBA中应尽量避免使用Select，除非必须，这样可以提升代码运行效率

Range("A1:B" & i).Delete Shift:=xlUp

大象无痕 · 发表于 2024-11-10 11:20

taller 发表于 2024-11-10 08:20
' VBA中应尽量避免使用Select，除非必须，这样可以提升代码运行效率

Range("A1:B" & i).Delete Shift:=x ...

谢谢大神，学习了

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

[求助] 如何将选择的区域变量使用？