Question

如何将数值放入一栏,而没有缺漏的栏目?

提前感谢。

以下是投入和所需产出的例子。

Index Input Output
  1    10    10
  2          15
  3    15    55
  4          12
  5          27
  6    55
  7    
  8    12
  9    27

Answer 1

如果您不关心数据顺序,可以排序从数据中排除空白的范围

Answer 2

假设您的索引是 A 列、输入列 B 和输出列 C 。将此代码添加到模块中 :

Option Explicit

Sub RemoveBlanks()
    Dim i As Integer
    Dim LastRow As Long
    LastRow = Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row

    Range("B2:B" & LastRow).Copy Range("C2")
      Start at the bottom of the range and work your way up
    For i = LastRow To 2 Step -1
        If Len(Range("C" & i)) = 0 Then Range("C" & i).Delete shift:=xlUp
    Next
End Sub

也可以使用数组公式实现相同的结果。

给您的输入区域( 带多余空白的输入区域) 提供一个名称。我称之为 mine nrwoodBlanks。将此公式粘贴在输出列的所有行中 :

=IFERROR(INDEX(nrWithBlanks,SMALL((IF(LEN(nrWithBlanks),ROW(INDIRECT("1:"&ROWS(nrWithBlanks))))),ROW(A2)),1),"")

由于它是数组公式,您需要按 CTRL+SHIFT+ENTER 在粘贴到单元格后按下 CTRL+SHIFT+ENTER 键。

友情链接