iT邦幫忙

1

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

https://ithelp.ithome.com.tw/upload/images/20200512/20127065K1GRSppREe.jpg
如圖所示,因為資料有上萬筆,無法一一做檢查
請教如何自動判斷並插入空格?
謝謝

2 個回答

0
海綿寶寶
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
0
paicheng0111
iT邦高手 1 級 ‧ 2020-05-13 08:45:06

試試看用公式

我要發表回答

立即登入回答