|
データ入力用の略語リストを用いて正式名への
一括置換をしようと試みましたが置換部分で“型が一致しません”
とエラーが出てしまいます。
書いたマクロの説明をしますと、
列方向に並んだデータの先頭セルをアクティブにし、
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
|
|