No.1ベストアンサー
- 回答日時:
例えば次のようなVBAにします。
Sub 試験()
Dim Row1 As Integer
Dim Coln1 As Integer
Dim Row2 As Integer
Dim Coln2 As Integer
Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
Coln1 = 1
Coln2 = 1
For Row1 = 1 To WS1.Cells(Rows.Count, 1).End(xlUp).Row
For Row2 = 1 To WS2.Cells(Rows.Count, 1).End(xlUp).Row
If WS2.Cells(Row2, 1) = WS1.Cells(Row1, 1) Then
Do
Coln1 = Coln1 + 1
Coln2 = Coln2 + 1
WS1.Cells(Row1, Coln1) = WS2.Cells(Row2, Coln2)
Loop Until Coln1 = 4
Coln1 = 1
Coln2 = 1
End If
Next Row2
Next Row1
End Sub
この回答へのお礼
お礼日時:2011/11/17 09:36
完璧な回答ありがとうございます。これでうまくいきました。すばらしいの一言です!とくに完全一致したセルの右隣に代入するセルを任意のセルまでに引き延ばしたい場合、このコードのLoop Until Coln1 = 4の右辺の数字を変えればいいのですね。早速の回答と、完璧な回答に感謝申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelでSUBTOTAL関数を設定した...
-
セルを結合した場合の関数(COU...
-
EXCELで、結合されたセルに連続...
-
エクセル ボタンを押すとセルの...
-
エクセルで片方のセルに入力し...
-
Excelのカウントアップボタンに...
-
Excel 離れたセルへの連続デー...
-
エクセルでチェックボックスを...
-
エクセル 結合セル内に空白なら...
-
VBAで結合したセルがクリアでき...
-
EXCEL VBAでたくさんのURLの一...
-
「数式は隣接したセルを使用し...
-
EXCEL セル結合したセルを参照...
-
Excelの表に自動でナンバリング...
-
エクセルでたくさんのセルを小...
-
EXCEL VLOOKUP的コメント自動表示
-
エクセルでセルをクリックして“...
-
Excel セルを結合したものを抽...
-
マクロ 複数行を1行にしたい
-
セルの値を取得してSQL文に組み...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelでSUBTOTAL関数を設定した...
-
エクセル ボタンを押すとセルの...
-
EXCELで、結合されたセルに連続...
-
セルを結合した場合の関数(COU...
-
エクセルで片方のセルに入力し...
-
Excel 離れたセルへの連続デー...
-
VBAで結合したセルがクリアでき...
-
セルの値を取得してSQL文に組み...
-
Excelの表に自動でナンバリング...
-
エクセルでセルをクリックして“...
-
Excelのカウントアップボタンに...
-
エクセル 結合セル内に空白なら...
-
Excel セルを結合したものを抽...
-
VBAで困っています。
-
Excel2007 セルの削除について
-
【EXCEL】条件に合致するセルの...
-
エクセルでたくさんのセルを小...
-
エクセルで作業した日の日付を残す
-
Excelでnullになるような式のセ...
-
EXCEL VLOOKUP的コメント自動表示
おすすめ情報