こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

文字列を連続で置き換え・・・・?

マクロを記録したんですが手直しして繰り返しと空白のセル内が見つかった場合
繰り返しを終わらせワードパッドにコピーして保存終了させたいんですがわかりません?
誰か教えてください。


'
' Macro2 Macro
' マクロ記録日 : 2012/4/21 ユーザー名 : cocoro
'

'
Range("E:E").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""#"",RC[-4])"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""$"",RC[-4])"
Range("G1").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""&"",RC[-4])"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""#"",RC[-4])"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""$"",RC[-4])"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""&"",RC[-4])"
Columns("G:G").Select
Selection.Copy
Columns("H:H").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("H:H").Select
ActiveWindow.SmallScroll Down:=-6
Application.CutCopyMode = False
Selection.Copy
End Sub

投稿日時 - 2012-04-21 02:34:07

QNo.7432501

困ってます

質問者が選んだベストアンサー

>マクロを記録したんですが手直しして繰り返しと空白のセル内が見つかった場合
D1セルからD列の最終行まで処理をしたい。 って事なら
Sub Test()
  Dim c As Range

  For Each c In Range("D1", Cells(Rows.Count, "D").End(xlUp))
    Cells(c.Row, "E").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""#"",RC[-4])"
    Cells(c.Row, "F").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""$"",RC[-4])"
    Cells(c.Row, "G").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""&"",RC[-4])"
    Cells(c.Row, "H").Value = Cells(c.Row, "G").Value
  Next
End Sub

投稿日時 - 2012-04-21 07:30:33

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問