EXCEL 表格中自動判斷並插入空白

excel excel vba

damertw 2020-05-12 22:01:17 ‧ 1654 瀏覽

分享至

如圖所示，因為資料有上萬筆，無法一一做檢查
請教如何自動判斷並插入空格?
謝謝

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-05-12 22:31:05

最近好像是 Excel 的旺季...

試試看

Sub InsertCell()
    Dim nC1, nC2 As Integer
    Dim bRun As Boolean
    nC2 = 1
    While Not Cells(2, nC2) = ""       
        nC1 = nC2
        bRun = True
        While (Not Cells(1, nC1) = "") And (bRun = True)
            If Cells(1, nC1) = Cells(2, nC2) Then
                If nC1 <> nC2 Then
                    Range(Cells(2, nC2), Cells(2, nC1 - 1)).Select
                    Selection.Insert shift:=xlToRight
                End If
                bRun = False
            End If
            nC1 = nC1 + 1
        Wend        
        nC2 = nC2 + 1
    Wend
End Sub