|
▼りった さん:
>条件追加ですみませんが、下記条件でのコピー方法をご教示下さい。
>・文字数がやたらと多い
>・コピー元は式コピー先は値
>・コピー元は結合セルを含む
コピー先のセルは、結合された状態にしたいのか? が良くわかりませんが、
こんな感じで出来ないですかね?
新規WorkSheetにSample でデータを作って確認してみてください。
Option Explicit
'対象範囲 A1:A4とする
Sub Sample()
Range("A2:A3").Merge
Range("A1").Formula = "=REPT(1234567890,100)"
Range("A2").Formula = "=REPT(1234567890,100)"
Range("A4").Formula = "=REPT(1234567890,100)"
'A4は関数ではなく値に変更
Range("A4").Value = Range("A4").Value
End Sub
Sub Test1()
'検証用にB列を削除
Call B_Del
Range("A1:A4").Copy Range("B1:B4")
With Range("B1:B4")
.Value = .Value
End With
End Sub
Private Sub B_Del()
Range("B:B").Delete
End Sub
|
|