FinePix J10 値張り付けの解決方法

質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。 Sub コード例() Dim sh2 As Worksheet, rng As Range Workbooks("Book2.xls").Activate Set sh2 = ActiveSheet Workbooks("Book1.xls").Activate For Each rng In Selection rng.Copy sh2.Range(rng.Ad...