3

外加

如何自动填充两者之间的值？

4

4 回答 4

6

Select Column A, CTRL+G -> Blanks -> OK Type = press UpArrow, then press CTRL+ENTER

See this link for explanation. It is basically find all blanks and enter a formula to all of them.

EDIT: as @kurast pointed out for safety/sanity reasons select all and Copy and Paste Special as Values.

于 2013-07-18T15:01:18.297 回答
5

我从来没有找到一个很好的方法来做到这一点。我不时使用一个不太好的解决方法：

  1. 在后面插入一列A
  2. 复制第一个值 - 所以B1: =A1
  3. 从 B2 开始，拖动公式B2: =IF(A2 = "", B1, A2)
  4. 复制B:B
  5. 将值粘贴到A:A
  6. 删除列B
于 2013-07-18T14:53:16.510 回答
1

制作另一列为您生成它们。插入一个新列 B，make B1= A1，然后在 中使用这个公式B2：

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

并把它拖下来；它将执行您想要的逻辑。

然后您可以复制 B 列和paste special values->values以“硬编码”结果。

编辑：我不确定您所说的“自动填充”是什么意思；@corsiKa 的公式将导致 

11122222333444...

我的会导致：

12323456345456...
于 2013-07-18T14:54:59.567 回答
1

以结束

模拟2

用这个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

ALTF8View MacrosFillValues

要得到

自动填充模拟

利用

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
于 2013-07-18T14:55:40.673 回答