Excel VBA質問箱 IV

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

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


10538 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【21201】範囲選択
質問  tamago  - 05/1/14(金) 15:40 -

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

【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

で、どうでしょうか?

【21208】Re:範囲選択
回答  [名前なし]  - 05/1/15(土) 2:14 -

引用なし
パスワード
   ▼tamago さん:
>セルP※にP※=B※&※と計算式を入力後セルを1つ下に移動させそこからB列にデータが入力されている行まで計算式を入力させるVBAを作成したく過去ログなどを参考に以下のコードを書きました。が選択したセルの1行下までしか数式がコピーされません。たいへん初歩的な質問ではずかしいのですがよろしくお願いします。

B列の最下行まですよね?
>  gyou = Range("e1").CurrentRegion.Rows.Count
なぜE列なんでしょうか。 B列の最下行とE列最下行は同じならいいんですけど。

>ActiveCell.FormulaR1C1 = "=RC[-14]&RC[-11]"
のActiveCellが何行目かわからないので、P列1行目からに
しています。

Sub Macro1()
  With Range("P1")
    Range(.Address, Cells([B65536].End(xlUp).Row, .Column)).FormulaR1C1 = "=RC[-14]&RC[-11]"
  End With
End Sub

【21234】Re:範囲選択
お礼  tamago  - 05/1/17(月) 9:23 -

引用なし
パスワード
   名前なしさん、ツンさんメールどうもありがとうございました。
名前なしさんに教えていただいたコードでやりたいことができました。
VBAはわからないことだらけですがめげずにがんばっていきます。

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