[[20160527144802]]　『特定文字後　行挿入』（きき）　ページの最後に飛ぶ

『特定文字後　行挿入』（きき）

お世話になっております

A列に　Total　と言う値が入力してある場合
その下に空白行を挿入したいです

宜しくお願いいたします

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 一例です。

 Sub Test()
    Dim r As Range

    With Range("A1", Range("A" & Rows.Count).End(xlUp))
        .Replace What:="total", Replacement:="#N/A", LookAt:=xlWhole
        On Error Resume Next
        Set r = .SpecialCells(xlCellTypeConstants, xlErrors)
        On Error GoTo 0
        If Not r Is Nothing Then
            r.Offset(1).EntireRow.Insert
            r.Value = "total"
        End If
    End With

 End Sub

（β） 2016/05/27(金) 15:09

 置き換えしたいセル範囲を選択後、Ctrl + F

 置き換え文字
 Total

 置き換え後の文字
 Total　の後に　Ctrl + J

 で、すべて置き換え。

 ああ、セル内改行じゃないのか。
 BJ

β様　　有難う御座います

（きき） 2016/05/27(金) 16:39

コメント返信：

[ 一覧(最新更新順) ]

[[20160527144802]] 『特定文字後 行挿入』（きき） ページの最後に飛ぶ

[[20160527144802]]　『特定文字後　行挿入』（きき）　ページの最後に飛ぶ