0

次のマクロを書くのに助けが必要です。

シート1の列Aには次のセルがあります000100020003 0004 0005

シート2の列Aには次のセルがあります000100030004

シート1のシート2セルA1から番号を見つけるためのマクロが必要です。次に、シート2の行A1-G1をシート1の対応する番号の行にコピーします。

シート2の番号は毎日異なるため、セルA1に入力されているものを検索するためのマクロが必要です。運が悪かったセルの内容を検索するために、マクロについて知っていることをすべて試しました。

私が考えることができる唯一の方法は、マクロ中に検索ボックスを表示し、コンテンツを手動で入力することです

ありがとう

4

1 に答える 1

1

これを試して：

Sub CopyCells()

Dim rnSource As Range, rnDest As Range, rnTempSource As Range, rnTempDest As Range

Set rnDest = Sheet1.Range("A1", Sheet1.Range("A60000").End(xlUp).Address)
Set rnSource = Sheet2.Range("A1", Sheet2.Range("A60000").End(xlUp).Address)

'Loop through Sheet2 column A, find value in Sheet1 and copy cells across

For Each rnTempSource In rnSource
    If rnTempSource.Value <> "" Then
        Set rnTempDest = rnDest.Find(rnTempSource.Text) 'Used .text to ignore unusual number format 0001
        Sheet1.Range(rnTempDest, rnTempDest.Offset(0, 6)).Value = Sheet2.Range(rnTempSource, rnTempSource.Offset(0, 6)).Value
    End If
Next

End Sub
于 2013-01-07T15:38:25.423 に答える