Question

我需要一个VBA脚本，它会查看源工作表A列中的帐号，并在目标工作表的A列中找到它的完全匹配。找到匹配后，需要复制单元格＆＃34; J＆＃34;通过＆＃34; M＆＃34;从源工作表到单元格＆＃34; O＆＃34;通过＆＃34; S＆＃34;目标工作表。

源工作表中有大约80行，目标工作表中有500多行。两个工作表中的帐号都具有完全匹配，但数字从一行到下一行不是连续的。

非常感谢任何帮助。

Answer 1

这样的事可能适合你：

For i = 1 to 90
    For j = 1 to 600
        If SourceWorksheet.Range("A" & i).Value _ 
            = TargetWorksheet.Range("A" & j).Value Then
            TargetWorksheet.Range("O" & j, "S" & j) _  
                = SourceWorksheet.Range("J" & i, "M" & i)
        End If
    Next j
Next i

Answer 2

Sheet target
Sheet source
String accountNum

set target = Workbook.sheet("sheetName")
set source = ActiveSheet

accountNum = Selection.cell(1,1)

Boolean found
Integer i
i = 1
found = false
while(target.cell(i,1) <> "" AND NOT found)
    if (target.cell(i,1) = accountNum) then found = true
wend

if not found then return

for Integer j = 0 to 3
    target.cell(i, j + 15) = source.cell(Selection.Row, j + 10)
next

请注意，我多年来没有做太多的VBA，所以语法可能会关闭。

如果列A值匹配，VBA将选择单元格从源工作表中的行复制到目标工作表

2 个答案: