こんにちは～ドットコムパソコン塾の徳丸です
今日は簡単なマクロです
初心者の方も覚えやすと思います。
今回紹介するマクロも、Yahooの知恵袋で回答し、
ベストアンサーをいただいた質問です。
是非覚えてくださいね～
A列に名前がランダムに書かれていて、
黒文字で書かれている文字と赤字で書かれている文字が記載されています。
そこで～下図をみると～
①赤文字の件数をB1に記述
②データ（赤文字）をそのままC列に取り出します。
マクロのコードは以下の通りです。
Sub Sample()
Dim i As Long
Dim cnt As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, "A").Font.Color = vbRed Then
cnt = cnt + 1
Cells(i, "A").Copy Cells(cnt, "C")
End If
Next i
Range("B1") = cnt
End Sub
コピーしてご使用ください。
まずA列に文字を入力し、黒文字と赤文字で区別してみてください。
その後、コードを表示して、標準モジュールに上記のマクロをコピペしてから
マクロを実行してみてください。
いかがですか？
できましたか？
ご質問はいつでも受け付けております。
コメント欄よりお気軽にどうぞ♪
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
