簡體   English   中英

Excel自動填充列X +++ .. Y ++ .. Z +

[英]Excel auto fill column by X+++..Y++..Z+

EXL

如何在兩者之間自動填充值?

選擇A列, CTRL+G - > Blanks - > OK類型=UpArrow ,然后按CTRL+ENTER

請參閱此鏈接以獲取解釋。 它基本上找到所有空白並輸入所有這些空白的公式。

編輯:因為@kurast指出出於安全/理智的原因選擇全部並復制和粘貼特殊值作為值。

我永遠找不到一個好方法。 我經常使用一個不太好的解決方法:

  1. A之后插入一列
  2. 復制第一個值 - 所以B1: =A1
  3. 從B2開始,拖動公式B2: =IF(A2 = "", B1, A2)
  4. 復制B:B
  5. 將值粘貼到A:A
  6. 刪除B

創建另一列以便為您生成它們。 插入一個新列B,使B1 = A1 ,然后在B2使用此公式:

=IF(A2="",B1+1,A2)

把它拖下來; 它會執行你想要的邏輯。

然后,您可以復制B列,並paste special values - > values以“硬編碼”結果。


編輯:我不確定你的意思是“自動填充”; @ corsiKa的公式將導致

11122222333444...

我的結果將是:

12323456345456...

結束

simulate2

使用這個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 ExplorerCTRL + 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.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM