大神，我想在一個作業簿中，通過vba洗掉另一個作業簿中作業表的空行、空列
代碼如下：
Windows("1.xlsx").Activate
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column
For c = LastColumn To 1 Step -1
If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c
但是總是洗掉vba所在作業簿作業表中的空行、空列。這個需要怎么改呢？
uj5u.com熱心網友回復：
因為你的Rows和Columns沒有加上ActiveSheet前綴.修改后的代碼如下:
Sub test()
Windows("1.xlsx").Activate
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.Rows(r)) = 0 Then ActiveSheet.Rows(r).Delete
Next r
Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column
For c = LastColumn To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.Columns(c)) = 0 Then ActiveSheet.Columns(c).Delete
Next c
End Sub
下載地址:
鏈接：https://pan.baidu.com/s/1yB-R9KTzggYU5beav8IllA
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/38719.html
標籤：VBA