繁体   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