ブックの中に複数のシートが存在しています。
Sheet1(DATA)の中から文字列を検索し、必要な情報を抜き出します(変数に格納)。
変数に格納できていることは、MsgBoxで確認したのでできていると思います。
Sheet1(DATA)で取得した情報を、Sheet2の所定の場所に持ってきたいのですが、
以下のコードでは書き出されません。
尚、使用しているのはExcel2010です。
VBA
1Sub Test() 2 3 Dim X, Y As Integer 4 Dim HHP(7), ECO(7) As String 5 6 MT = "111_ABC" 7 8 Sheets("DATA").Activate 9 Cells.Find(what:=MT).Activate 10 11 X = ActiveCell.Row 12 Y = ActiveCell.Column 13 reHHP = X + 28 14 reECO = X + 1 15 16 For I = 0 To 6 17 'MsgBox Cells(reHHP+I, Y).Value 18 HHP(7) = Cells(reHHP + I, Y).Value 19 'MsgBox Cells(reECO+I, Y).Value 20 ECO(7) = Cells(reECO + I, Y).Value 21 Next I 22 23 Sheets("Sheet2").Activate 24 For M = 0 To 6 25 Cells(M + 3, "C").Value = HHP(M) 26 Cells(M + 3, "C").Value = HHP(M) 27 Next M 28 29End Sub
回答4件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/21 14:58