|
▼ちゃっぴ さん:
おはようございます。
いつも丁寧なアドバイスありがとうございます。m(_ _)m
アドバイスどおり列に関してもループさせてうまくいきました。
さらに汎用性を高めるのには、現在は同じワークシート内に
略語リスト、置換対象データ、がないと動かないので
別シートに略語リストがあっても動くようにしたいですね。
ちょっと汎用性というより趣味的ですが。
:::::::ちなみに変更したところは::::::::::::::::::::::::::::::::::::::::
Dim vntTarget As Variant '置換対象範囲の中のデータ
Dim vntList As Variant '略語リストの中の略語
Dim Targetcolumn As Long '置換対象の列数を数える
Dim i As Long, j As Long, k As Long
'略語リストを配列に格納
vntList = Range(myCell).Value
'置換対象文字列を配列に格納
vntTarget = Range(myCell2).Value
Targetcolumn = myCell2.Columns.Count '置換対象の列数を数える
'置換処理
For k = 1 To Targetcolumn
For i = 1 To UBound(vntTarget)
For j = 1 To UBound(vntList)
vntTarget(i, k) = Replace$(vntTarget(i, k), _
vntList(j, 1), vntList(j, 2), 1, -1, 0)
Next j
Next i
Next k
'置換した配列を一括出力
Range(myCell2).Value = vntTarget
Set rngTarget = Nothing
End Sub
|
|