Question

我有一个数据集，如下图所示。我还显示了我想从图像中得到什么结果。

为了解释，我希望自动填充仅填充基于相邻列（列I / S）单元格的单元格。行之间可能有空格，应该跳过该行，直到最后一行。

我有一个公式可以自动过滤到最后一行，甚至对于类似于手动双击自动过滤的方式。

将非常感谢您能够为您提供帮助。

我用于自动筛选的代码如下。结果也在图像中。

Dim Name As String
For Each C In Range("H2:H" & Cells(rows.Count, 2).End(xlUp).Row)
    If Cells(C.Row, 1) > "" Then
        Name = Cells(C.Row, 1)
    Else
        Cells(C.Row, 1).Value = Name
    End If
Next

由于某种原因，此代码总是自动对A列进行自动过滤。如何将其引用到需要执行自动过滤的列中？

Data and Results

注意：值可以是任意值（1和4仅供参考）

谢谢！

Answer 1

Else
    Cells(C.Row, 1).Value = Name

由于,1分配A列中单元格的值。将1更改为希望数据填充到的列的数值。

示例：如果要在C列中填充数据，请使用：

Else
    Cells(C.Row, 3).Value = Name

基于另一列数据的Autifil列

1 个答案: