在excel中,歸并單位格打消歸并后,會有良多空白單位格,若是要把這些空白單位格填充為歸并單位格時的內容,需要怎么操作呢,網上有一些定位空值,在輸入公式的方式,我就不再反復這種方式了,今天和大師分享下經由過程VBA主動化填充的方式。
起首打開一份excel表格,點擊“開辟東西”→“Visual Basic”進入編程界面。
右鍵選中當前工作簿名字,在右鍵菜單中選擇“插入”→“模塊”。
將下面代碼復制粘貼到代碼界面中。
Sub 打消歸并單位格并填充空白單位格()
Dim rng As Range
Set rng = Selection.Cells
arr = rng.Value
rng.UnMerge
For i = 1 To UBound(arr, 1)
If arr(i, 1) = "" Then
arr(i, 1) = arr(i - 1, 1)
End If
Next
rng.Value = arr
End Sub
保留后,返回excel本家兒界面。選中要打消歸并單位格并主動填充空白單位格的區域。
點擊“開辟東西”→“宏”,選擇“打消歸并單位格并填充空白單位格”的宏,然后點擊“運行”。
可以看到,歸并單位格被打消歸并了,而且空白單位格都被填充為歸并單位格時的內容,結果如圖:
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!