|
tamago さん、こんにちは
>セルP※にP※=B※&※と計算式を入力後セルを1つ下に移動させそこからB列にデータが入力されている行まで計算式を入力させるVBAを作成したく過去ログなどを参考に以下のコードを書きました。が選択したセルの1行下までしか数式がコピーされません。たいへん初歩的な質問ではずかしいのですがよろしくお願いします。
>
>
> Dim gyou As Integer
> ActiveCell.FormulaR1C1 = "=RC[-14]&RC[-11]"
> Selection.Copy
> Selection.Offset(1, 0).Select
> gyou = Range("e1").CurrentRegion.Rows.Count
> ActiveCell.FormulaR1C1 = "RC:R[gyou]C"
> ActiveSheet.Paste
>
>End Sub
Sub test()
Dim gyou As Long
gyou = Range("e65536").End(xlUp).Row
Range("c1").FormulaR1C1 = "=RC[-14]&RC[-11]"
Range("c1").Copy Destination:=Range(Cells(2, 3), Cells(gyou, 3))
End Sub
で、どうでしょうか?
|
|