excel怎么把每一列非空的填上数字

在Excel中将每一列非空单元格填上数字的方法有多种，包括使用公式、VBA宏以及手动操作。 今天我们将重点讲解如何使用公式和VBA宏来完成这一任务。使用公式可以简化操作，而VBA宏则适用于需要重复执行的复杂任务。

一、使用公式填充非空单元格

1、使用IF函数和COUNTA函数

使用IF函数和COUNTA函数可以根据条件判断并填充非空单元格。假设我们要在A列中填充数字。

在B1单元格中输入以下公式：
```
=IF(A1<>"",COUNTA($A$1:A1),"")
```
向下拖动填充柄（小十字）直到覆盖所有需要填充的单元格。

该公式通过COUNTA函数计算从A1到当前单元格中非空单元格的数量，然后使用IF函数判断A列中的单元格是否非空，如果非空则填充数字，否则保持为空。

2、使用ISNUMBER和ROW函数

另一种方法是结合ISNUMBER和ROW函数来实现。

在B1单元格中输入以下公式：

=IF(ISNUMBER(A1),ROW(A1)-ROW($A$1)+1,"")

向下拖动填充柄直到覆盖所有需要填充的单元格。

该公式通过ISNUMBER函数判断A列中的单元格是否为数字，如果是数字则返回该单元格的行号减去起始行号加一，否则保持为空。

二、使用VBA宏填充非空单元格

1、创建VBA宏

使用VBA宏可以自动化完成这一任务，尤其适用于需要频繁执行的操作。

打开Excel，按 Alt + F11 打开VBA编辑器。
在VBA编辑器中，选择 Insert > Module 插入一个新模块。

在模块中粘贴以下代码：

Sub FillNonEmptyCells()
    Dim ws As Worksheet
    Dim cell As Range
    Dim count As Long
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 遍历每一列
    For Each cell In ws.UsedRange.Columns(1).Cells
        If cell.Value <> "" Then
            count = count + 1
            cell.Offset(0, 1).Value = count
        End If
    Next cell
End Sub

按 F5 运行宏。

该宏会遍历指定工作表的每一列，如果单元格非空则在相邻的单元格中填充一个递增的数字。

2、修改VBA宏以适应多个列

如果需要处理多列，可以稍微修改宏代码：

Sub FillNonEmptyCellsMultipleColumns()
    Dim ws As Worksheet
    Dim cell As Range
    Dim count As Long
    Dim col As Integer
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 遍历每一列
    For col = 1 To ws.UsedRange.Columns.Count
        count = 0
        For Each cell In ws.UsedRange.Columns(col).Cells
            If cell.Value <> "" Then
                count = count + 1
                cell.Offset(0, 1).Value = count
            End If
        Next cell
    Next col
End Sub

该宏会遍历指定工作表中的每一列，并在相邻的单元格中填充递增的数字。

三、手动操作填充非空单元格

1、使用查找和替换功能

Excel的查找和替换功能也可以用于手动填充非空单元格。

选择需要填充的列。
按 Ctrl + H 打开查找和替换对话框。
在“查找内容”字段中留空，在“替换为”字段中输入一个数字。
点击“替换全部”。

2、使用筛选和填充功能

选择需要填充的列。
在“数据”选项卡中点击“筛选”按钮。
点击列标题的下拉箭头，选择“非空单元格”。
选中筛选结果并手动输入数字。

四、总结

在Excel中填充每一列非空单元格可以通过多种方法实现，包括使用公式、VBA宏以及手动操作。使用公式如IF、COUNTA、ISNUMBER和ROW函数，可以快速判断并填充非空单元格。使用VBA宏可以自动化处理多个列，适合频繁执行的任务。手动操作虽然简单但适合小规模数据处理。选择合适的方法可以大大提高工作效率。