Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62241 / 76732

←次へ　｜　前へ→


	【19098】略語リストから一括置換

momo - 04/10/21(木) 15:37 -


	引用なし

	パスワード

データ入力用の略語リストを用いて正式名への
一括置換をしようと試みましたが置換部分で“型が一致しません”
とエラーが出てしまいます。

書いたマクロの説明をしますと、
列方向に並んだデータの先頭セルをアクティブにし、
A列にある略語を取得しB列にある正式名に置換しようとしてます。

どうしたらよいのでしょうか？
___________________________________________
Dim 変換対象 As String
変換対象 = columCounter & ":" & columCounter

Range("A2,A2").Activate

Do Until ActiveCell.Value = ""
　Range("A1").Select
　Dim 略語 As String
　略語 = Range("A1").Value
　Dim 正式名 As String
　正式名 = Range("B1").Value
　Columns(変換対象).Select　'変換対象の範囲を指定して略語を正式名に置換
　Selection.Replace What:="略語", Replacement:="正式名", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Loop

End Sub

2 hits

▼

【19098】略語リストから一括置換 momo 04/10/21(木) 15:37

≪