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

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

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

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

步驟二：編寫VBA代碼

接下來(lái)，打開(kāi)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í)行完宏之后，你會(huì)發(fā)現(xiàn)空列中的數(shù)值已經(jīng)被自動(dòng)填充為與首列相同的數(shù)值。這樣就能夠很方便地處理合并列拆分后空列數(shù)值的填充了。

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