|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原来2017可以打开,打开VBE编辑窗口,插入模块,把代码贴上,按F5执行,在我的机子不到一秒,然后移除模块。点击保存。剩10K。
- Sub test()
- Dim rng As Range
- Dim lastRow As Long
- Dim startRow As Long
- Dim firstCol As Long
- Dim endCol As Long
-
- startRow = Sheet1.Range("a1").End(xlDown).Row
- Set rng = Sheet1.Cells(startRow + 1, 1)
-
- endCol = rng.End(xlToRight).Column '最大列数
- lastRow = rng.End(xlDown).Row '最大行数
- With Sheet1
- Set rng = .Range(.Cells(startRow+1, 1), .Cells(lastRow, endCol))'从有数据的下一行开始到最后一行,列从第一列到最后一列
- rng.Clear'执行清除
- End With
-
- End Sub
复制代码 |
|