• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• skychance2013/04/18 10:23:36

  満足600pt

  以下のようなマクロでいかがでしょうか。
  Mastarfileのほうにマクロをコピーしていただければ動くと思います。
  念のためダミーのファイルで動作確認していただけると幸いです。
  
  任意のファイルのC列が空欄になるまで動く設定になっています。
  
  任意のファイルは毎回かわるとのことでしたので、
  ダイアログボックスを開くようにしました。
  いかがでしょうか。
  
  Sub Sample1()
  Dim OpenFileName As String
  Dim filename As String
  Dim actBk As Workbook
  Dim i, j As Integer
  
  Set actBk = ThisWorkbook
  
  OpenFileName = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm")
  If OpenFileName <> "False" Then
  Workbooks.Open OpenFileName
  filename = Dir(OpenFileName)
  End If
  
  i = 1
  Do Until Workbooks(filename).Sheets(1).Cells(i, 3) = ""
  j = 1
  Do Until actBk.Sheets(1).Cells(j, 1) = ""
  If Workbooks(filename).Sheets(1).Cells(i, 3) = actBk.Sheets(1).Cells(j, 1) Then
  Workbooks(filename).Sheets(1).Cells(i, 6) = actBk.Sheets(1).Cells(j, 2)
  Exit Do
  End If
  j = j + 1
  Loop
  i = i + 1
  Loop
  End Sub

  スター

その他の回答

• tororosoba

  2013/04/18 10:49:46

  skychanceさん、

  早速のご返信ありがとうございます。

  動作環境、確認できました。

  大変に助かります、ありがとうございました！

この質問へのコメント

質問の情報

登録日時

2013-04-17 16:38:26

終了日時

2013-04-18 10:50:13

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者17時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者117時間前
• 内定してほしいポケモンはいますか？匿名質問者17時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ