![](/img/trans.png)
[英]Filling in columns in Excel. If x Is empty, fill with Y, if Y is empty fill with Z
[英]Excel auto fill column by X+++..Y++..Z+
如何在兩者之間自動填充值?
選擇A列, CTRL+G
- > Blanks
- > OK
類型=
按UpArrow
,然后按CTRL+ENTER
請參閱此鏈接以獲取解釋。 它基本上找到所有空白並輸入所有這些空白的公式。
編輯:因為@kurast指出出於安全/理智的原因選擇全部並復制和粘貼特殊值作為值。
我永遠找不到一個好方法。 我經常使用一個不太好的解決方法:
A
之后插入一列 B1: =A1
B2: =IF(A2 = "", B1, A2)
B:B
A:A
B
列 創建另一列以便為您生成它們。 插入一個新列B,使B1
= A1
,然后在B2
使用此公式:
=IF(A2="",B1+1,A2)
把它拖下來; 它會執行你想要的邏輯。
然后,您可以復制B列,並paste special values
- > values
以“硬編碼”結果。
編輯:我不確定你的意思是“自動填充”; @ corsiKa的公式將導致
11122222333444...
我的結果將是:
12323456345456...
結束
使用這個VBA
Sub FillValues()
Dim c As Range
For Each c In Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row)
If IsEmpty(c) Then c = c.Offset(-1, 0)
Next c
End Sub
點擊ALT + F11打開VBE,然后右鍵單擊Project Explorer
( CTRL + R )
並Insert
» Module
然后ALT + F8 View Macros
»選擇FillValues
要得到
采用
Sub FillValues()
Dim c As Range
For Each c In Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row)
If IsEmpty(c) Then c = c.Offset(-1, 0) +1
Next c
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.