如何修改VBA代码实现基于组合框输入复制整行而非单元格

没问题！要将你的代码从复制单个单元格改成复制整行，只需要调整复制的目标对象，同时优化一下代码的运行效率。下面是修改后的完整代码，以及关键改动的说明：

修改后的代码 #

Dim K As Long, r As Range, v As Variant
K = 1
Dim w1 As Worksheet, w2 As Worksheet
Set w1 = Sheets("RAW Data")
Set w2 = Sheets("Output")

' 直接操作工作表对象，无需激活，提升效率
For Each r In Intersect(w1.Range("D5:D1048576"), w1.UsedRange)
    v = r.Value
    ' 先判断单元格非空，避免空值导致InStr报错
    If Not IsEmpty(v) And InStr(v, ModelSelection.Value) > 0 Then
        ' 复制当前单元格所在的整行
        r.EntireRow.Copy w2.Rows(K)
        K = K + 1
    End If
Next r

关键改动说明 #

• 替换复制对象：把原来的r.Copy改成r.EntireRow.Copy，这样就会选中当前单元格r所在的整行进行复制，而不是仅复制D列的单个单元格。
• 调整粘贴目标：将w2.Cells(K, 1)改为w2.Rows(K)，确保整行内容粘贴到目标工作表Output的第K行，保证格式和内容的完整性。
• 移除不必要的激活操作：删掉了w1.Activate，直接通过w1对象引用单元格范围，不仅让代码运行更快，还避免了工作表切换的闪烁问题。
• 添加空值判断：新增Not IsEmpty(v)的条件，防止D列出现空单元格时InStr函数抛出错误，让代码更健壮。

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