EXCEL表格VLOOKUP贴数字如何运用VBA将字体颜色带过来？可以把代码给我么？

Question

如题所述

Answer 1

我觉得没必要用vlookup，用vlookup之后要想得到字体颜色，还要返回单元格所在行
看我的代码，假设只有A列和B列，要找到A列中对应的数的B列的值复制到D1单元格，假设A列和B列从第一行开始，其他情况类似，自己改改就行了
Sub SVLookup()
Dim nStr As String
Dim nCount As Integer
Dim tmpCount As Integer
nStr = "a"
nCount = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
For tmpCount = 1 To nCount
If Range("A" & tmpCount) = nStr Then
Range("B" & tmpCount).Copy Destination:=Range("D1")
End If
Next

End Sub追问

谢谢、这个想法基本能实现我的愿望、但是
If Range("A" & tmpCount) = nStr Then
Range("B" & tmpCount).Copy Destination:=Range("D1")
End If
这句代码中Range("A" & tmpCount)我想在其他资料文档中进行匹配、比如该文档放在桌面上、名字叫 客户资料大全.xls 、找到数据后又要将资料文档中的数据返回现在打开正在运行的excel文件、请问如何改、

追答

你是说名叫“客户资料大全.xls”的文件没有打开的情况下吗