求高人一句动态区域代码

工信退办 · 发表于 2016-9-27 09:54

Sub 清除()
Dim s%, t%
   s = Application.CountA(Sheet2.Columns(1))
   t = Sheets("Sheet2").[a1].CurrentRegion.Columns.Count
   ActiveWorkbook.Sheets("Sheet2"). Range("a5", "i" & s)= ""
End Sub
请将Range("a5", "i" & s)改写为动态区域

工信退办 · 发表于 2016-9-28 14:34

高人该出手了帮助解决一下

zhjlgaojuan · 发表于 2016-10-3 08:56

你想怎么个动态法？

工信退办 · 发表于 2016-10-4 10:04

我想在sheet1表界面清除Sheet2表的内容将("a5", "i" & s)变成如("A5", Cells(s, t))将” I “列变成动态列。
谢谢

hamato · 发表于 2016-10-7 08:21

With Sheet2
   s = .[a65536].End(xlUp).Row
   t = .[z1].End(xlToLeft).Column
   .Range("a5", Cells(s, t)).Delete
End With

工信退办 · 发表于 2016-10-7 09:05

hamato 发表于 2016-10-7 08:21
With Sheet2
s = .[a65536].End(xlUp).Row
t = .[z1].End(xlToLeft).Column

方法Range作用于对象'_worksheet'时失败

hamato · 发表于 2016-10-7 10:37

本帖最后由 hamato 于 2016-10-7 10:45 编辑

少了个点， .Range("a5", .Cells(s, t)).Delete

工信退办 · 发表于 2016-10-8 18:06

hamato 发表于 2016-10-7 10:37
少了个点， .Range("a5", .Cells(s, t)).Delete

只清除了A列 5—s行运行后 t = 1

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