教えて★ExcelでVBのマクロについて
以前ここで質問させていただきました。
http://okwave.jp/qa3029622.html
上の内容のとおり教えていただきました。
マクロにさらにタイトルを追加したいのですが可能でしょうか?
ファイルAのタイトルは5行目から始まり8行目まであります。
ファイルBのタイトルは2行目から始まり6行目まであります。
★ファイルAのタイトルにファイルBのタイトルをつけ加えたい!
以下のソースに付け加えるとしたら、どこにどのように追加すればよいですか?
以上ですがよろしくお願いいたします。
Sub findJoin()
On Error GoTo err
Dim st1 As Worksheet
Dim st2 As Worksheet
Set st1 = ActiveSheet
Workbooks.Open ("870xtd.xls")
Set st2 = Workbooks("870xtd.xls").Sheets(1)
Dim st1MaxRow As Long
Dim st2Maxrow As Long
st1MaxRow = st1.Cells(st1.Rows.Count, "A").End(xlUp).Row
st2Maxrow = st2.Cells(st2.Rows.Count, "AB").End(xlUp).Row
Dim R As Long
For R = 2 To st1MaxRow
Dim nmRng As Range
Set nmRng = st2.Range("AB2:AP" & st2Maxrow).Find(st1.Cells(R, "A").Value, LookIn:=xlValues)
If Not nmRng Is Nothing Then
'発見した。
st2.Range("A" & nmRng.Row & ":AP" & nmRng.Row).Copy Destination:=st1.Range("DQ" & R)
End If
Next
st1.Activate
Set st1 = Nothing
Set st2 = Nothing
Exit Sub
err:
MsgBox Error
End Sub
お礼
調べても出てこないと思ったらやっぱし無かったんですかぁ_| ̄|○ わたしも途中から >WORDやEXCELでRUNメソッドがあるのは を疑ったりしたのですが楽をしたいがために諦めきれずに・・・ それはともかくありがとうございます!