在日常的Excel操作中，我們經(jīng)常會遇到將已經(jīng)合并的列再拆開，但數(shù)據(jù)只能填充該合并列的首列，其余空列都沒有數(shù)據(jù)的情況。為了讓拆分后的空列值與有數(shù)據(jù)的首列數(shù)據(jù)保持一致，我們可以借助VBA程序來實現(xiàn)這個目

在日常的Excel操作中，我們經(jīng)常會遇到將已經(jīng)合并的列再拆開，但數(shù)據(jù)只能填充該合并列的首列，其余空列都沒有數(shù)據(jù)的情況。為了讓拆分后的空列值與有數(shù)據(jù)的首列數(shù)據(jù)保持一致，我們可以借助VBA程序來實現(xiàn)這個目標(biāo)。但需要注意的是，程序執(zhí)行時會終止在最后一個有數(shù)據(jù)的行，為了避免在最后一個數(shù)據(jù)以下的空列有值，我們可以在最后一個空列下方輸入一個非空值，在程序運行完成后再刪除這個值即可。

步驟一：準(zhǔn)備工作

首先，打開Excel表格，并按照指導(dǎo)圖片中的例式進行輸入。需要說明的是，該程序不僅適用于少量行的操作，單列65535行的全合并行也能夠快速完成。

步驟二：編寫VBA代碼

接下來，打開VBA編輯器，在代碼窗口中輸入以下內(nèi)容：

```vba

Sub FillEmptyCells()

Dim lastRow As Long

Dim ws As Worksheet

Set ws ("Sheet1") ' 修改為目標(biāo)工作表名稱

lastRow ws.Cells(, "A").End(xlUp).Row

For i 2 To lastRow

If ws.Cells(i, 2) <> "" Then

ws.Cells(i, 2).Offset(0, 1).Value ws.Cells(i, 2).Value

End If

Next i

End Sub

```

然后回到Excel界面，單擊要執(zhí)行目標(biāo)列（比如B2），接著執(zhí)行上述宏。

步驟三：查看效果

執(zhí)行完宏之后，你會發(fā)現(xiàn)空列中的數(shù)值已經(jīng)被自動填充為與首列相同的數(shù)值。這樣就能夠很方便地處理合并列拆分后空列數(shù)值的填充了。

通過以上簡單的步驟，我們可以利用VBA程序輕松解決撤銷合并后空單元格數(shù)值填充的問題，提高工作效率，讓Excel操作更加便捷快速。希望這篇文章對你有所幫助！