Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60172 / 76732 ←次へ | 前へ→

【21204】Re:範囲選択
回答  つん E-MAIL  - 05/1/14(金) 16:09 -

引用なし
パスワード
   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

で、どうでしょうか?
0 hits

【21201】範囲選択 tamago 05/1/14(金) 15:40 質問
【21204】Re:範囲選択 つん 05/1/14(金) 16:09 回答
【21208】Re:範囲選択 [名前なし] 05/1/15(土) 2:14 回答
【21234】Re:範囲選択 tamago 05/1/17(月) 9:23 お礼

60172 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free