| |
▼だるま さん：
ありがとうございます。
これで、名称の置き換えが自在にでき、問題が解決できます。
お蔭様で、有効に活用させていただきます。
>Sub Okikae()
> Dim Table As Range
> Dim Target As Range
> Dim R As Range
>
> Set Table = Range("G11")
> Set Table = Range(Table, Table.End(xlDown)).Resize(, 2)
>
> Set Target = Range("A11")
> Set Target = Range(Target, Target.End(xlDown))
>
> For Each R In Table.Rows
> Target.Replace R.Cells(1).Value, R.Cells(2).Value
この上の２行ですが、なんと無く理解できるのですが、いまひとつ
正しい理解が出来ておりません。もしコメントいただければ
幸いです。
> Next
>End Sub
ありがとうございました。これからもよろしくお願いします。
|
|
Pi
- 06/8/19(土) 18:30 -
