下面是代码，代码中是复制TRUE行所在的整行数据，能帮忙改成TRUE所在行的B:I列吗？感谢
Sub CopyTrueRowsToSheet2()
Dim wsSource As Worksheet: Set wsSource = ThisWorkbook.Worksheets("查找，复制整行")
Dim wsTarget As Worksheet: Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
' 找到最后一行
lRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
For i = 1 To lRow
If UCase(Trim(wsSource.Range("A" & i).Value)) = "TRUE" Then
rowToCopy = i
Exit For
End If
Next
' 如果找到符合条件的行，则执行复制和粘贴操作
If rowToCopy > 0 Then
wsSource.Rows(rowToCopy).Copy
wsTarget.Rows(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "已将 Sheet1 中第 " & rowToCopy & " 行复制并粘贴到 Sheet2。", vbInformation, "提示"
Else
MsgBox "未找到要复制的行。", vbCritical, "错误"
End If
End Sub

wsSource.Rows(rowToCopy).Copy
改成Range 试试，这会暂时没电脑测试

wsSource.Rows(rowToCopy).Copy
这个语句复制 rowToCopy 的整行，如果要复制该行的B:I列，有一下方法（一行一种）：
wsSource.Range("B" & rowToCopy & ":I" & rowToCopy).Copy
wsSource.Range(wsSource.Cells(rowToCopy,"B"), wsSource.Cells(rowToCopy,"I")).Copy
wsSource.Cells(rowToCopy,"B").ReSize(1, 8).Copy

autofillter筛选或者find函数好点吧

wsSource.Rows(rowToCopy).Copy
用相对地址也可以：
wsSource.Rows(rowToCopy).range("B1:I1").Copy