找到单词并复制粘贴另一个工作表中的值

Question

我有很多国家的文件，我必须得到这个词（在A栏中），然后复制该词的％（第一栏中的15％）并将其粘贴到其他表格中。< / p>

我想从第一张纸上找到Windows 8和Windows平板电脑，然后在第二张纸上粘贴。

我从Shiddarth溃败的博客中获取了一个宏，这有助于找到这个词。我在下面复制了同样的内容。但是我需要在找到单词后将该百分比复制并粘贴到另一个excel表中。能帮帮我吧。

对于Ex：

Sub Sample1()
Dim oSht As Worksheet
Dim lastRow As Long, i As Long
Dim strSearch As String
Dim aCell As Range
t = GetTickCount
On Error GoTo Err
Set oSht = Sheets("Sheet1")
lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row
strSearch = "Windows 8"
Set aCell = oSht.Range("A1:A" & lastRow).Find(What:=strSearch, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
    MsgBox "Value Found in Cell " & aCell.Address & vbCrLf & _
"and it took " & GetTickCount - t & "milliseconds"
End If
Exit Sub
Err:
    MsgBox Err.Description
End Sub

Answer 1

我对你提出问题的方式感到有些困惑，但我相信我可以帮助你。

aCell将具有.Row和.Column属性，用于专门引用数据，但在从同一行或列中提取单元格值时也很有用。

使用Range.Copy方法对您来说可能是最简单的。

aCell.Copy destination:=Worksheets("Sheet2").Range("A1")

或

aCell.Copy
Sheets("Sheet2").Range("A1").PasteSpecial (xlPasteValues)

然后，您可以决定要粘贴值的位置。当我重新阅读您的问题时，您似乎想要找到该值，然后将该值复制到另一列中。然后你会用。

Sheets("Sheet1").Range("I" & aCell.Row).Copy destination:=Worksheets("Sheet2").Range("A1")

或类似的东西。