find重复并将相邻的单元格复制到
在这个任务上我需要一些帮助。
我有两个电子表格转储大量的信息。 我需要将它们组合成一个有组织的工作表。
电子表格A具有文件path（通过硬盘驱动器），需要保留大量附加信息。 电子表格B有文件path（通过硬盘驱动器），内容pipe理系统中的path是CMS中的path。
我想将电子表格B复制到电子表格A中的工作表2中，然后运行一个macros来search匹配的值（通过硬盘驱动器到文件的path），并且在相同的位置复制工作表B的相邻值（CMS中的path）并将其复制到电子表格A中的相应单元格中
我有一个vlookupfunction，正是我所需要做的事情，但我怎么去把它放在一个macros运行？
=VLOOKUP(H1,A:B,2,FALSE) 我怎么会把这个放入一个返回值的macros，而不是把公式放在单元格中？
Sub PCMSLookup() Dim LastRow As Long LastRow = Range("B" & Cells.Rows.Count).End(xlUp).Row Range("J15:J" & LastRow).Formula = "=VLOOKUP(B15,'PCMS-dump'!A:B,2,FALSE)" End Sub
将值放入单元格的最快方法是在公式中阻止，然后将公式恢复为返回的值。
Sub PCMSLookup() Dim LastRow As Long with sheets("Sheet1") '<-set this worksheet reference properly LastRow = .Range("B" & Cells.Rows.Count).End(xlUp).Row with .Range("J15:J" & LastRow) .Formula = "=VLOOKUP(B15, 'PCMS-dump'!A:B, 2, FALSE)" .cells = .value2 end with end with End Sub
请注意，当您处于With / End With分组中时，所有范围和单元格引用都以句点（例如.或句号 ）作为前缀。 这表明他们是最接近/最终的孩子。