| |
よろしくお願いします。
質問はたとえばD5〜Q***（行数は変わります）に値があって、その中の空白セルを検索して、0に置き換えるマクロを下記のように組んでうまくはいったのですが、最後にＭＳＧBOXで”**件検索して、置換しました"もMSGBOXを表示させたいのですが、できますか。
今のままだと、範囲を指定したままの形でマクロが終了してしまいます。
Dim myRow1 As Long
Dim myRow2 As Long
Dim myStrg1 As String
myRow1 = 5
myRow2 = Cells(65536, "A").End(xlUp).Row
myStrg1 = "D" & myRow1 & ":$Q$" & myRow2
Range(myStrg1).Select
Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
