Excel VBA質問箱 IV

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

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


49559 / 76732 ←次へ | 前へ→

【32079】Re:2つのシートの一方から必要情報を抽出するには
質問  にしもり  - 05/12/5(月) 22:56 -

引用なし
パスワード
   ▼やっちん さん:

アドバイスのとおりFINDを使うにはソートしなくてはいけないとのことで、
ちょっとむずかしいので下記のようなロジックを書いてみました。
現場勤務表.xlsの45列目に、文字列の中身を判断することなしに転記してるつもりです。
ですが、Nextに対するforがありませんと出ます。
どこが悪いか教えてください。

Sub Getumatsu()

Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim MyRow1 As Long
Dim MyRow2 As Long
Dim MyVal1 As String
Dim MyVal2 As String

Workbooks("現場勤務表.xls").Activate
Workbooks("本部勤務表.xls").Activate
Set SH1 = Workbooks("現場勤務表.xls").Worksheets("200511")
Set SH2 = Workbooks("本部勤務表.xls").Worksheets("Sheet1")

MyRow1 = SH1.Range("A65536").End(xlUp).Row
MyRow2 = SH1.Range("A65536").End(xlUp).Row

For i = 5 To MyRow1
  MyVal1 = SH1.Cells(i, 1)
  For j = 5 To MyRow1
    MyVal2 = SH2.Cells(j, 1)
    If MyVal1 = MyVal2 Then
    SH1.Cells(i, 45) = SH2.Cells(j, 5)
    If IsEmpty(MyVal1) Then Exit Sub
  Next j
Next i

End Sub
0 hits

【32030】2つのシートの一方から必要情報を抽出するには にしもり 05/12/4(日) 23:32 質問
【32037】Re:2つのシートの一方から必要情報を抽出... やっちん 05/12/5(月) 8:16 発言
【32072】Re:2つのシートの一方から必要情報を抽出... やっちん 05/12/5(月) 18:50 発言
【32079】Re:2つのシートの一方から必要情報を抽出... にしもり 05/12/5(月) 22:56 質問
【32080】Re:2つのシートの一方から必要情報を抽出... ponpon 05/12/5(月) 23:21 発言
【32081】Re:2つのシートの一方から必要情報を抽出... やっちん 05/12/5(月) 23:40 発言
【32087】Re:2つのシートの一方から必要情報を抽出... にしもり 05/12/6(火) 9:11 質問
【32088】Re:2つのシートの一方から必要情報を抽出... にしもり 05/12/6(火) 9:17 お礼
【32092】Re:2つのシートの一方から必要情報を抽出... やっちん 05/12/6(火) 12:59 発言
【32123】Re:2つのシートの一方から必要情報を抽出... にしもり 05/12/6(火) 18:15 お礼
【32125】Re:2つのシートの一方から必要情報を抽... やっちん 05/12/6(火) 19:04 発言

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