Excel VBA質問箱 IV

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

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


62260 / 76732 ←次へ | 前へ→

【19079】Re:別シートに転記するには
回答  ショボタン  - 04/10/21(木) 1:20 -

引用なし
パスワード
   ▼KAZU さん:
>Sheet1に1000件以上のデータが入力されています。B列に数値が入力されています。
>Sheet2の30行目にSheet1と同じ項目の内容を入力しSheet2 B列の数値と一致するSheet1の行にコピーするにはどうしたらいいのでしょうか。よろしくお願いします。
>  Sheet1           Sheet2       Sheet1
>a  b  c  d  e     a  b  c d e     a  b  c d e
>1 101 r  y  t  →  1 101 u p y  →  1 101 u p y
>2 102 u  u  o                     
>3 103 t  i  p
>4 104 i  j  o
>5 105 o  n  u 
>
>
質問内容があまり理解できませんでしたのでが以下の処理で
できるとおもいますが…

Dim s1max As Long'sheet1行数
Dim s2max As Long'sheet2行数
Dim i, j, count As Integer'ループカウンタ,一致データ数
'**初期化**
count = 0
s1max = Sheet1.Range("B" & Sheet1.Rows.count).End(xlUp).Row
s2max = Sheet2.Range("B" & Sheet2.Rows.count).End(xlUp).Row
'**集計**
For i = 30 To s2max
  For j = 2 To s1max
   If Sheet1.Cells(j, 2) = Sheet2.Cells(i, 2) Then
    count = count + 1
    Sheet2.Range(Sheet2.Cells(i, 2), Sheet2.Cells(i, 5)).Copy
    Sheet1.Cells(s1max + count, 2).PasteSpecial Paste:=xlPasteValues
    Exit For
   End If
  Next j
Next i
'**終了**
MsgBox "sheet1とsheet2のデータで同じ値は" & count & "個ありました。", vbOKOnly, "結果表示"

終了時にはsheet2のB30以降のデータを削除しないと処理を行う度にsheet1に
データがコピーされますので…

1 hits

【19075】別シートに転記するには KAZU 04/10/20(水) 22:41 質問
【19077】Re:別シートに転記するには まー坊 04/10/21(木) 0:00 発言
【19088】Re:別シートに転記するには kazu 04/10/21(木) 13:24 質問
【19078】Re:別シートに転記するには row 04/10/21(木) 0:08 発言
【19079】Re:別シートに転記するには ショボタン 04/10/21(木) 1:20 回答
【19092】Re:別シートに転記するには kazu 04/10/21(木) 14:07 質問

62260 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free