| |
こんにちは。かみちゃん です。
>（Sheet1のB列のセルに数個データがあるとして、完全に一致しているデータがあ
> っても書き換えられず、全て「番号なし」のメッセージが表示されます。）
考えられることとして、Sheet1のB列とSheet2のB列のデータ型が一致していない
のではないかと思います。
また、このコードのままだと、Sheet1をアクティブにした状態で処理しないと誤動作をします。
それとも、以下のコードの記述が私が提示したものと違いますし、おかしいです。
With Sheets("Sheet1")
lngRow = 0
On Error Resume Next
lngRow = Application.Match(Cells(RR, 2).Value, Sheets("Sheet2").Columns("B"), 0)
On Error GoTo 0
If lngRow > 0 Then
Sheets("Sheet2").Cells(lngRow, 3).Value = .Offset(RR, -1).Value
With Sheets("Sheet1")
は、
With Sheets("Sheet1").Cells(RR, 2)
Cells(RR, 2).Value
は
.Value
.Offset(RR, -1).Value
は、
.Offset(, -1).Value
とご提示させていただいたのですが、なぜ記述を修正したのでしょうか？
|
|
かみちゃん
- 07/7/9(月) 22:07 -
