エクセル2013です。
皆さんに教えていただいて以下のマクロが完成しました。
サンプルデータ
３０行、7列ではあっという間に処理ができたのですが
本番環境
800行、50列ですと
処理時間が長く
青丸がくるくる回っていて、2分後にくらいで終わります。
もう少し早く処理する方法はありますでしょうか？
Findで検索して、一括削除？
（それはマクロでできるのでしょうか？）
よろしくお願いします。
Sub 出荷済削除()
Dim 対象セル As Range
Dim 対象色 As Long
Dim 対象色2 As Long
Dim 最終行
Dim 最終列
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
Application.ScreenUpdating = False '画面切替停止
対象色 = Range("B8").Interior.Color 'セルB8の色を基準色とする
対象色2 = Range("A8").Interior.Color 'セルB8の色を基準色とする
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Interior.Color = 対象色 Or 対象セル.Interior.Color = 対象色2 Then 対象セル.ClearContents
Next 対象セル
Application.ScreenUpdating = True '画面切替停止解除
End Sub
教えて頂いたＶＢＡなのですがもう一つ
Sub Macro1()
Dim Ws01 As Worksheet
Dim Counter As Long, i As Long, j As Long
Dim INP As String
Set wS = Worksheets("Sheet4")
wS.Cells.ClearContents
For i = 3 To ActiveSheet.UsedRange.Rows.Count
INP = ""
For j = Selection(1).Column To Selection(Selection.Count).Column
If Cells(i, j) = 1 Then
INP = INP & Cells(2, j) & ","
End If
Next j
Counter = Counter + 1
If INP <> "" Then
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
Next i
End Sub
--------------------------------------------------------------
For i = 3 のところを3としないでどのセル（行）にも対応させたいのですが
どうすればいいでしょうか？
教えて頂いたＶＢＡなのですが
Sub Macro1()
Dim Ws01 As Worksheet
Dim Counter As Long, i As Long, j As Long
Dim INP As String
Set wS = Worksheets("Sheet4")
wS.Cells.ClearContents
If Selection(Selection.Count).Row <> 2 Then Exit Sub
Counter = 0
For i = 3 To ActiveSheet.UsedRange.Rows.Count
INP = ""
For j = Selection(1).Column To Selection(Selection.Count).Column
If Cells(i, j) = 1 Then
INP = INP & Cells(2, j) & ","
End If
Next j
If INP <> "" Then
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
Next i
End Sub
----------------------------------------------------------------------
ｇ ｈ ｉ ｊ
パセリ クレソン メキャベツの葉 ごぼう
１ １ １
１ １
1行目 パセリ,クレソン,メキャベツの葉
2行目
3行目 パセリ,メキャベツの葉
と、2行目は詰めずに空白表示したいです。
どこをどうすればできますか？
教えて頂いたＶＢＡなのですが
Sub Macro1()
Dim Ws01 As Worksheet
Dim Counter As Long, i As Long, j As Long
Dim INP As String
Set wS = Worksheets("Sheet4")
wS.Cells.ClearContents
If Selection(Selection.Count).Row <> 2 Then Exit Sub
Counter = 0
For i = 3 To ActiveSheet.UsedRange.Rows.Count
INP = ""
For j = Selection(1).Column To Selection(Selection.Count).Column
If Cells(i, j) = 1 Then
INP = INP & Cells(2, j) & ","
End If
Next j
If INP <> "" Then
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
Next i
End Sub
----------------------------------------------------------------------
ｇ ｈ ｉ ｊ
パセリ クレソン メキャベツの葉 ごぼう
１ １ １
１ １
1行目 パセリ,クレソン,メキャベツの葉
2行目
3行目 パセリ,メキャベツの葉
と、2行目は詰めずに空白表示したいです。
どこをどうすればできますか？
