今月VBAを勉強し始めた初心者です。
Webにて入力されたcsvファイルを編集する際に
最新投稿を残して表に出力する目的で
下記のマクロを作成して実行してみたところ
変数i、jが0になるまでループが繰り返されてエラーになってしまいます。
ループ範囲指定のどこに問題があるのでしょうか？
こちら側の環境が
OS：Windows7 64bit Ultimate
Office2007
です。
ご教授宜しくお願い致します。
Sub namaesakujo()
Dim i As Integer
Dim j As Integer
Dim mct As Integer
Dim Name1 As String
Dim Name2 As String
Dim Time1 As Long
Dim Time2 As Long
Worksheets("result").Activate
mct = Worksheets("result").UsedRange.Rows.Count '最大行数を指定
Name1 = Cells(i, 2).Value '名前1
Name2 = Cells(j, 2).Value '名前2
Time1 = Cells(i, 1).Value '時間1
Time2 = Cells(j, 1).Value '時間2
'変数iを最終行数～2行目まで指定
i = mct
Do While i > 2
'変数jを最終行数～2行目まで指定
j = mct
Do While j > 2
'2列目iと2列目jが等しい(名前が同じ)場合、日時が小さい方を削除する
If Name1 = Name2 And Time1 > Time2 Then
Cells(j, 1).EntireRow.Delete
End If
j = j - 1
Loop
i = i - 1
Loop
MsgBox "更新完了"
End Sub
VBAに慣れていないのですが、下記のマクロを組んでみました。
実行すると、コンパイルエラー Nextに対するForがありませんと出てしまいました。
原因が良く解らないので解る方いらっしゃいましたら教えてください。
それと、もっと良い書き方などありましたらアドバイスを下さい。
よろしくお願いします。
Sub レポート作成2each()
Dim ReportMaxRow As Long '上方向に最終行を検索し行番号を格納
Dim AddWsName As String 'シート名格納
Dim Ws As Worksheet 'オブジェクト格納
Dim i As Long '繰り返しのカウントを格納
Dim flag As Boolean '真偽
ReportMaxRow = Worksheets("レポート元").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ReportMaxRow
If Cells(i, "N").Value <> "" Then
If Cells(i, "O").Value <> "" Then
AddWsName = Cells(i, "K").Value
For Each Ws In Worksheets
If Ws = AddWsName Then
flag = True
Next Ws ←ここでエラーになります。
If flag = True Then
Worksheets("レポート元").Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets(AddWsName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Worksheets.Add
ActiveWorksheet.Name = AddWsName
Worksheets("レポート元").Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets(AddWsName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
MsgBox i + "行目の発注数の入力がませんでした。" & vbNewLine & "処理を中断します, _
vbOKOnly + vbExclamation, "お知らせ"
End If
Else
MsgBox i + "行目の発注数の入力がませんでした。" & vbNewLine & "処理を中断します", _
vbOKOnly + vbExclamation, "お知らせ"
End If
Next i
End Sub
VBAに慣れていないのですが、下記のマクロを組んでみました。
実行すると、コンパイルエラー Nextに対するForがありませんと出てしまいました。
原因が良く解らないので解る方いらっしゃいましたら教えてください。
それと、もっと良い書き方などありましたらアドバイスを下さい。
よろしくお願いします。
Sub レポート作成2each()
Dim ReportMaxRow As Long '上方向に最終行を検索し行番号を格納
Dim AddWsName As String 'シート名格納
Dim Ws As Worksheet 'オブジェクト格納
Dim i As Long '繰り返しのカウントを格納
Dim flag As Boolean '真偽
ReportMaxRow = Worksheets("レポート元").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ReportMaxRow
If Cells(i, "N").Value <> "" Then
If Cells(i, "O").Value <> "" Then
AddWsName = Cells(i, "K").Value
For Each Ws In Worksheets
If Ws = AddWsName Then
flag = True
Next Ws ←ここでエラーになります。
If flag = True Then
Worksheets("レポート元").Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets(AddWsName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Worksheets.Add
ActiveWorksheet.Name = AddWsName
Worksheets("レポート元").Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets(AddWsName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
MsgBox i + "行目の発注数の入力がませんでした。" & vbNewLine & "処理を中断します, _
vbOKOnly + vbExclamation, "お知らせ"
End If
Else
MsgBox i + "行目の発注数の入力がませんでした。" & vbNewLine & "処理を中断します", _
vbOKOnly + vbExclamation, "お知らせ"
End If
Next i
End Sub
