ID非公開

2020/11/10 23:34

22回答

画像にあるようなループをしたいのですが、どうするのが綺麗に処理できるでしょうか?

画像
補足

追記です Sheet名はサンプルなので非常に単調ですが、実際は複雑で法則の無い数字と文字の組み合わせです。

Excel | Visual Basic109閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ID非公開

質問者

2020/11/11 7:36

考えもしていなかった手段なので非常に興味深いのですが、各部分の詳細な説明をお願いできますでしょうか?

ThanksImg質問者からのお礼コメント

本当に勉強になりました。 ありがとうございましたm(__)m

お礼日時:2020/11/17 19:02

その他の回答(1件)

0

Sub a() 'こんな感じでしょうか Dim mySht As Worksheet Set mySht = Worksheets("Sheet1") '画像のシートは、Sheet1としてます mySht.Range("A1").CurrentRegion.Copy Destination:=Range("E1") mySht.Range("E1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes Dim i As Integer Dim strWs As String Dim kigou As String For i = 2 To mySht.Cells(1, 5).End(xlDown).Row strWs = mySht.Cells(i, 5).Value 'シート名を変数に入れる kigou = mySht.Cells(i, 6).Value '記号を変数に入れる On Error GoTo ErrorHandler Worksheets(strWs).Activate 'シートをアクティブに On Error GoTo 0 MsgBox strWs & "シートで" & kigou & "処理完了!" loopContinue: Next i mySht.Select Exit Sub ErrorHandler: Resume loopContinue 'ラベルにジャンプ End Sub

ID非公開

質問者

2020/11/11 0:21

早々にありがとうございます。 mySht.Range("A1").CurrentRegion.Copy Destination:=Range("E1") mySht.Range("E1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes この部分はどういった内容でしょうか?