申请人：office中国网
申请感言：对Excel有好多年使用经验，也有多年吧主经验，希望申请吧主，为大家服务，抽时间来管理本吧，请大家支持我，投票给我

那就 帮忙 算一道 题 呗
现在是 选中任意 单元格 然后 单独 一列 向下 寻找 运行
能不能 修改为 选中任意 单元格 然后 整行 向下 运行 寻找
Sub Text()
sngStart = Timer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Call Text1
Call Text2
Call Text3
Call 测试4
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "耗费时间: " & Round(Timer - sngStart, 2) & "秒"
End Sub
Private Sub CommandButton1_Click()
Call Text
End Sub
Private Sub CommandButton2_Click()
Call dateAnsy
End Sub
Private Sub CommandButton3_Click()
Open ThisWorkbook.Path & "\1.00.txt" For Input As #1
AA = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
AA = Replace(AA, vbCrLf, "")
SS = Split(AA, " ")
Dim t As String
t = Selection.Address(0, 0)
If InStr(t, ":") <= 0 Then
当前列 = Mid(t, 1, 1)
当前行 = Mid(t, 2)
Rows1 = Range(当前列 & "65536").End(xlUp).Row 'A列一共多少行数据
For ii1 = 当前行 To Rows1
For ii2 = 0 To UBound(SS)
If Len(SS(ii2)) > 0 Then
If Trim(Sheet1.Range(当前列 & ii1)) = Trim(SS(ii2)) Then
Sheet1.Range(当前列 & ii1).Interior.Color = QBColor(12)
End If
End If
Next
Next
End If
End Sub

office中国网为你投上一票！＋1