Excel VBA需求：将含cat/Cat的A列内容复制到B列并清空原单元格

需求说明 #

将Data_sheet工作表中A列包含"cat"（不区分大小写）的行内容复制至同行B列，并清空A列对应行的内容。

原代码存在的问题 #

• 变量未显式声明，不符合VBA编码规范，易引发错误
• 复制逻辑错误：Row(item_description)是无效用法，无法定位目标行
• 重复判断大小写：已启用Option Compare Text，大小写不敏感，无需分别判断"Cat"和"cat"
• 循环条件变量名错误：items_description未定义，实际应为item_description
• 未实现清空A列的核心逻辑
• 单元格对象引用错误：items_copied被赋值为单元格值而非对象，无法执行粘贴操作

修正后的代码 #

Option Compare Text
Public Sub Search_For()
    Dim ws As Worksheet
    Dim row_number As Long
    Dim item_description As String
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("Data_sheet")
    row_number = 1
    
    ' 循环遍历A列直到空行
    Do
        row_number = row_number + 1
        item_description = ws.Range("A" & row_number).Value
        
        ' 检查A列单元格是否包含"cat"（不区分大小写）
        If InStr(item_description, "cat") > 0 Then
            ' 将A列内容复制到同行B列
            ws.Range("B" & row_number).Value = item_description
            ' 清空A列对应行内容
            ws.Range("A" & row_number).ClearContents
        End If
        
    ' 循环终止条件：A列当前行为空
    Loop Until item_description = ""
End Sub

代码说明 #

• 显式声明所有变量，提升代码稳定性与可读性
• 使用Set声明工作表对象，避免重复调用Sheets()方法
• 利用Option Compare Text特性，一次InStr判断即可匹配所有大小写形式的"cat"
• 直接赋值单元格内容替代复制粘贴，提升执行效率
• 增加ClearContents方法实现清空A列对应行的需求
• 修正循环终止条件，确保遍历到A列最后一行有效数据

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