VBA Macro匹配Column A与Column B数据并输出结果至其他列实现咨询

以下是可直接使用的完整代码：

Sub FillEmptyNameReminder()
    Dim lastRow As Long
    Dim i As Long
    
    ' 定位当前工作表数据的最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ' 若B列数据更长，可将上一行的"A"替换为"B"
    
    ' 遍历所有数据行，若表格有表头仅需处理数据行，可将i=1改为i=2
    For i = 1 To lastRow
        ' 判断A列或B列对应单元格为空的情况
        If Range("A" & i).Value = "" Or Range("B" & i).Value = "" Then
            Range("C" & i).Value = "Need to provide Name"
        Else
            ' 匹配无问题时C列留空，不展示名称内容
            Range("C" & i).Value = ""
        End If
    Next i
End Sub

使用步骤 #

• 打开目标Excel文件，按Alt + F11唤起VBA编辑器
• 在左侧项目栏右键点击对应工作簿名称，依次选择「插入」-「模块」
• 将上述代码粘贴到弹出的模块编辑窗口
• 按F5直接运行，也可将宏绑定到表格按钮方便后续调用

自定义调整说明 #

• 若要求A、B两列同时为空才填充提示，可将判断条件中的Or修改为And
• 若需要过滤单元格内的空格类不可见字符，可将空值判断逻辑替换为Trim(Range("A" & i).Value) = ""

内容的提问来源于stack exchange，提问作者user16831316