エクセル　マクロ　ループで？

Question

度々すいません。マクロはほぼ初心者ですがよろしくお願いします。前回の質問で、ある程度教えていただいたのですがループさせる方法がよくわかりません。 http://okwave.jp/qa4469670.html サンプルでコードは Sub test() 　Dim st As String, s As String, stmp As String 　Dim sht As Worksheet, rw As Long, col As Long 　st = "

$4

@

$3

@$5@$6@" 　st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1) 　Set sht = ActiveSheet '//現在のシートを設定 '------- 1行分の処理　---- 　rw = 2 '//処理対象の行番号（2行目に設定）　s = st '//雛型の文字をコピー　For col = 1 To 9 '//A～I列までをループ（col=列番号）　　stmp = "$" & Format(col, "#") 　　 '//各セルの内容で置換え　　s = Replace(s, stmp, sht.Cells(rw, col).Text, 1, -1, 1) 　Next col 　sht.Cells(rw, 14).Value = s '//結果をN列に入れる End Sub です。マクロを実行するとセルN2に出力されます。これをN2以降、N3N4・・・も表示されるようにしたいです。 rw = 2 '//処理対象の行番号（2行目に設定）を固定させないでループすればいいようなのですが、どのようにすればいいのでしょうか？ Sub test()～End Sub内全てを教えていただけないでしょうか？よろしくお願いします。

lul · Accepted Answer

これで少しは分かりやすくなるのではないでしょうか？ Sub test2() Const LFeed As String = vbCrLf Dim st As String Dim sht As Worksheet, i As Long, obj Set sht = ActiveSheet '//現在のシートを設定 Dim MaxRow As Long MaxRow = Range("A65536").End(xlUp).Row For i = 1 To MaxRow If Cells(i, 1) <> "" Then Set Grammar = Nothing 'HTML1行ずつ記載しています st = "" st = "

" & Cells(i, 4) & "

" & LFeed st = st & "

" & Cells(i, 3) & "

" & LFeed st = st & Cells(i, 5) & LFeed st = st & Cells(i, 6) & LFeed st = st & "" st = Replace(st, "'", Chr(34), 1, -1, 1) sht.Cells(i, 14).Value = Mid(st, 1, Len(st) - 1) '//結果をN列に入れる End If Next i End Sub "(ダブルクォート)はやはり'(シングルクォート)で記載して後で置換える方が良いと思います。他にもCollectionオブジェクトや、Textstreamオブジェクトを使うのも手ですが、今回は一番単純に分かりやすくなるように書いてます。もっと分かりやすくする為にはHTMLの構文の所を設定ファイルとして外部で持って、それを読み込んで使うというのもありだと思うし、色々やり方はありますね。後々楽に作業できるようにする為にも頑張ってくださいね。

pkh4989 · Answer

こんにちは。以下のマクロを試してみてください。 Sub test() 　　Dim st As String, s As String, stmp As String 　　Dim sht As Worksheet, rw As Long, col As Long 　　Dim MaxRow As Long 　　　　With ActiveSheet　　'//現在のシートを設定　　　　MaxRow = .Range("A" & Rows.Count).End(xlUp).Row 　　　　For rw = 1 To MaxRow 　　　　　　If Cells(rw, "A") <> "" Then 　　　　　　　　'//雛型の文字を設定　　　　　　　　st = "

" 　　　　　　　　st = st & .Range("D" & rw) & "

@" 　　　　　　　　st = st & "

@

" 　　　　　　　　st = st & .Range("C" & rw) & "

@" 　　　　　　　　st = st & .Range("E" & rw) & "@" & .Range("F" & rw) & "@" 　　　　　　　　st = st & "" 　　　　　　　　st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1) 　　　　　　　　s = st '//雛型の文字をコピー　　　　　　　　For col = 1 To 9　　'//A～Iカラムまでをループ（col=列番号）　　　　　　　　　　stmp = "$" & Format(col, "#") 　　　　　　　　　　'//各セルの内容で置換え　　　　　　　　　　s = Replace(s, stmp, .Cells(rw, col).Text, 1, -1, 1) 　　　　　　　　Next 　　　　　　　　.Cells(rw, "N").Value = s '//結果をN列に入れる　　　　　　End If 　　　　Next 　　End With End Sub

lul · Answer

こんにちは以下のコードでご希望の処理になるのではないでしょうか。 Sub test() Dim st As String, s As String, stmp As String Dim sht As Worksheet, rw As Long, col As Long Dim MaxRow As Long MaxRow = Range("A65536").End(xlUp).Row st = "

$4

@

$3

@$5@$6@" st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1) Set sht = ActiveSheet '//現在のシートを設定 For rw = 1 To MaxRow If Cells(rw, 1) <> "" Then '------- 1行分の処理　---- s = st '//雛型の文字をコピー For col = 1 To 9 '//A～I列までをループ（col=列番号） stmp = "$" & Format(col, "#") '//各セルの内容で置換え s = Replace(s, stmp, sht.Cells(rw, col).Text, 1, -1, 1) Next col sht.Cells(rw, 14).Value = s '//結果をN列に入れる End If Next rw End Sub 他の回答者様のを少しいじっただけですが…。

pkh4989 · Answer

(1) 最後に以下の1行を追加するか　' 　sht.Range("N" & rw & ":N100").FillDown '←追加 (N2～N100まで) (2) For で回すなら以下のようにしてください。 Sub test() 　Dim st As String, s As String, stmp As String 　Dim sht As Worksheet, rw As Long, col As Long 　st = "

$4

@

$3

@$5@$6@" 　st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1) 　Set sht = ActiveSheet '//現在のシートを設定　s = st '//雛型の文字をコピー　For rw = 2 To 100　'←追加 (2～100行分の処理) 　　For col = 1 To 9 '//A～Iカラムまでをループ（col=列番号）　　　stmp = "$" & Format(col, "#") 　　　'//各セルの内容で置換え　　　s = Replace(s, stmp, sht.Cells(rw, col).Text, 1, -1, 1) 　　Next 　　sht.Cells(rw, 14).Value = s '//結果をN列に入れる　Next End Sub

n-jun · Answer

Sub Try()
Dim rw As Long, col As Long

For rw = 2 To 1000 '１０００行目までとして
For col = 1 To 9   '９列目までとして

Cells(rw, col).Value = "abc"

Next col
Next rw
End Sub

２行目から１０００行目までの、１列目から９列目まで"abc"を代入してます。
ご参考程度に。

エクセル マクロ ループで？

これで少しは分かりやすくなるのではないでしょうか？

こんにちは。

こんにちは

(1) 最後に以下の1行を追加するか

この回答への補足

Sub Try()

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル　マクロ　ループで？