|
こんにちは。
えーっと、momoさんの書かれたコードを拝見しますと、
ちょっとよくわからない部分や気になる部分が多々あるようです。
まず、「略語」「正式名」は変数ですよね?
変数は「””」で囲むといけません。
「略語」という文字列そのものになってしまいます。
それから、変数の宣言をループの中ではあまりするものじゃないと思います。
通常はプロシージャの先頭でまとめて宣言します。
途中で宣言するという人の話も聞いたことあるような気もしますが、
少なくともループ無いではないと思います。
>Dim 変換対象 As String
>変換対象 = columCounter & ":" & columCounter
「:」の右も左も同じですよね?だったら、
変換対象 = columCounter だけでいいような気も
>
>Range("A2,A2").Activate
ここも、A2をアクティブにするなら、
Range("A2").Activate でいいんでは?
>Do Until ActiveCell.Value = ""
アクティブセルって「A2」ですよね?
ループないで、A2の値が空白になる処理がないみたいなので、
このループは必要ないんじゃないですか?
> 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
気になることを少々書きましたが、全体的には、イマイチどの範囲のデータをどう処理しようとしてるのかわからないです・・・
|
|