有沒有辦法計算年份下每一列中的值，一直到姓氏，如果計數為 0，則將右側的列移到其位置？例如，第 2020 列沒有值。我可以將 2021 和任何后續列移到左側嗎？我附上了一張之前和之后的圖片來展示我想要完成的事情。有人能指出我正確的方向嗎？謝謝！
開始 - https://ibb.co/WfQ91D4 完成 - https://ibb.co/Jv6gf7Q
uj5u.com熱心網友回復：
洗掉空白資料（整個）列
Sub RemoveBlankDataColumns()
Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
Dim rg As Range: Set rg = ws.Range("A1").CurrentRegion
Dim rCount As Long: rCount = rg.Rows.Count - 1
Dim drg As Range: Set drg = rg.Resize(rCount).Offset(1)
Dim rgDel As Range
Dim crg As Range
For Each crg In drg.Columns
If Application.CountBlank(crg) = rCount Then
If rgDel Is Nothing Then
Set rgDel = crg
Else
Set rgDel = Union(rgDel, crg)
End If
End If
Next crg
If rgDel Is Nothing Then
MsgBox "No blank columns found.", vbExclamation
Else
rgDel.EntireColumn.Delete
MsgBox "Blank data columns removed.", vbInformation
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/472665.html