用vba 读取单元格中的值（是汉字如：我爱你中国）

来源：百度知道 编辑：UC知道 时间：2024/05/25 05:53:33
就是我想 让vba 先探出一个对话筐 输入相关信息 如：”中国 “然后在工作表中找到”我爱你中国“这个单元格 然后把它所在的行 选定复制 ，粘贴到一个新的工作表中
要做到把所有含”中国”的单元格都找到
谢谢
请先运行成功后再做答
谢谢
谢谢

你用工具栏里面的录制宏功能就方便很多了。先开始录制，然后就在工作表上面寻找"中国"之类的字样。找到了就copy 粘贴到另外一个工作表。然后停止录制。当然这样的话还少了input box 和循环的部分，不过最主要的code已经到手了，到VBA editor里面去就可以看到。等会儿有空帮你做。

Option Base 1
Option Explicit
Sub inputcopy()
Dim sInput As String, vResults, lRow As Long, lColumn As Long, vFound, i As Long
sInput = InputBox("请输入需要查询的文字")
ActiveSheet.Range("A1").Select
ReDim vResults(1)
Do While True
Cells.Find(What:=sInput, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
If ActiveCell.Row < lRow Or ActiveCell.Column < lColumn Then
Exit Do
Else
lRow = ActiveCell.Row
lColumn = ActiveCell.Column
End If
vResults(UBound(vResults)) = ActiveCell.Value2
ReDim Preserve vResults(UBound(vResults) + 1)
Loop
ReDim vFound(UBound(vResults