此處問題可用一段VBA程式碼來解決。
Sub DelBlkRow()
"假設判斷100行
For i = 1 To 100
IF Cells(i,1)="" Then
"如果第i行1列單元格是空的則給一個預設值
Cells(i, 1) = 1
"定位第i行的最大非空單元格
endCol = Cells.Find("*", Cells(i, 1), xlValues, xlWhole, xlByColumns, xlPrevious)
.Column
"如果第i行的最大單元格是1則代表整行是空的
If endCol = 1 Then
Rows(i)
.Delete
Else
"最大行不是1則還原第一個單元格為空
Cells(i,1)=""
End If
End IF
Next
End Sub
此處問題可用一段VBA程式碼來解決。
Sub DelBlkRow()
"假設判斷100行
For i = 1 To 100
IF Cells(i,1)="" Then
"如果第i行1列單元格是空的則給一個預設值
Cells(i, 1) = 1
"定位第i行的最大非空單元格
endCol = Cells.Find("*", Cells(i, 1), xlValues, xlWhole, xlByColumns, xlPrevious)
.Column
"如果第i行的最大單元格是1則代表整行是空的
If endCol = 1 Then
Rows(i)
.Delete
Else
"最大行不是1則還原第一個單元格為空
Cells(i,1)=""
End If
End IF
Next
End Sub