エクセルの表でR列の

質問

文字の入っているセルのみ一括でA列へコピーするには、
マクロなどではどのようにすればよいのでしょうか？
※R列で文字の入っていないセルに関してはA列へコピーしません

回答No.2

maron--5 · ベストアンサー

◆マクロではありませんが
■手順■
１）R列の範囲を指定します
２）メニューバーの［編集］－［ジャンプ］を選択します
４）「ジャンプ」の下の「セル選択」をクリックして、「定数」にチェックをして、「文字」にのみチェックして、ＯＫ
５）その状態で、メニューバーの［編集］－［コピー］をして、Ａ列に貼り付けします

補足

このカタチでできました！有難うございました
Sub sample3()
Dim i As Long
With ActiveSheet
For i = 5 To .Cells(Rows.Count, "R").End(xlUp).Row
If InStr(.Cells(i, "R"), "※") > 0 Then
Cells(i, 2).Offset(0, -1).Value = "※"
End If
Next i
End With
End Sub

回答No.1

n-jun

Range("R:R").SpecialCells(xlTextValues).Copy Range("A1")

貼り付け位置はセルＡ１としてますけど。