ID非公開

2021/6/11 19:35

22回答

Excel VBA 色付きセルの抽出について

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

ベストアンサー

0

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

お礼が遅くなってしまい申し訳ありません! 無事にマクロが正常に動き、感謝してもしきれませんm(_ _)m お二方のコードともマクロの実行出来たのですが、 コンパクトにまとめていただいたlgk様をベストアンサーに 選ばせていただきます。 ご回答いただいたお二方本当にありがとうございました!

お礼日時:6/14 19:25

その他の回答(1件)

1

下記のコードを実行してみてください。 Sub 指定色抽出() Dim start start = Timer Dim aデータ aデータ = Cells(1, "U").Resize(1000, 4) ReDim a色(1 To UBound(aデータ, 1), 1 To UBound(aデータ, 2)) ReDim aデータY(1 To UBound(aデータ, 1), 1 To 1) Cells(2, "Y").Resize(999, 1) = aデータY Dim IC As Long, U As Long, X As Long IC = Cells(1, "AA").Interior.Color U = Cells(1, "U").Column X = Cells(1, "X").Column Dim i As Long, j As Long For i = 2 To 1000 For j = U To X a色(i, j - U + 1) = Cells(i, j).Interior.Color Next Next aデータY(1, 1) = aデータ(1, 1) For i = 2 To 1000 For j = 1 To 4 If a色(i, j) = IC Then aデータY(i, 1) = aデータ(i, j) End If Next Next Cells(1, "Y").Resize(1000, 1).Value = aデータY MsgBox "処理が終了しました" & vbLf & "処理時間:" & Format(Timer - start, "0.000") End Sub

画像

1人がナイス!しています