Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13317 / 76807

←次へ　｜　前へ→


	【68996】シート間比較して合致したらコピーする

まいった！ - 11/5/6(金) 16:24 -


	引用なし

	パスワード

「シート3」と「Sheet4」があるのですが（同ブックです）
「シート4」のG列に「Sheet3」のB列の値があったら、
「シート4」のI列の値を、「Sheet3」のＧ列に書き込む。としたいのですが、
下記のようにしましたが、うまくいきません。教えて下さい。

Dim 最終行 As Integer
Dim 行 As Integer
　Worksheets("Sheet4").Select
　最終行 = Range("G65536").End(xlUp).Row
　行 = 1
　Do Until 行 > 最終行
　ありなし = Application.CountIf(Worksheets("Sheet6").Range("C:C"), Cells(行, 7))
　If ありなし > 0 Then
　　　　値 = Cells(行, 9).Value　　　　
　　　　Sheets("Sheet3").Select
　　　　Range("C2:C10000").Find(What:=名, LookIn:=xlValues, LookAt:=xlWhole).Select
　　　　j = ActiveCell.Address
　　　　k = Mid(j, 2, 1)
　　　　l = Mid(j, 4, 2)
　　　　　Cells(l, 7) = 値

1 hits

▼

【68996】シート間比較して合致したらコピーする まいった！ 11/5/6(金) 16:24

≪