人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAについて質問です。
列の置換について質問です。

列の値の置換パターンをご回答いただけないでしょうか。

列Aの 数字1を1へ変換する。
列Bの ?を-へ置換する。
列Cの ?を(なにもなし)に置換する。

上記3つのパターンを教えて頂ければと思います。

お手数をおかけしますがよろしくお願いいたします。

●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:VBA パターン 数字
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● kn1967
●100ポイント ベストアンサー
Columns("A:A").Replace What:="数字1", Replacement:="1", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Columns("B:B").Replace What:="?", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Columns("C:C").Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

以上3点です。

◎質問者からの返答

ご回答ありがとうございます。


2 ● SALINGER
●100ポイント

1と2は全角→半角になりますかね。

Sub MacroA()
 Dim i As Long
 Dim lastRow As Long
 lastRow = Cells(Rows.Count, "A").End(xlUp).Row
 For i = 1 To lastRow
 Cells(i, "A").Value = Replace(Cells(i, "A").Value, "1", "1")
 Next
End Sub

Sub MacroB()
 Dim i As Long
 Dim lastRow As Long
 lastRow = Cells(Rows.Count, "B").End(xlUp).Row
 For i = 1 To lastRow
 Cells(i, "B").Value = Replace(Cells(i, "B").Value, "?", "-")
 Next
End Sub

Sub MacroC()
 Dim i As Long
 Dim lastRow As Long
 lastRow = Cells(Rows.Count, "C").End(xlUp).Row
 For i = 1 To lastRow
 Cells(i, "C").Value = Replace(Cells(i, "C").Value, "?", "")
 Next
End Sub
◎質問者からの返答

ご回答ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ