Excel VBA 質問スレッド No.90 (未解決)

コピー

投稿者 : BJ     投稿日時 : 2020/07/17(Fri) 16:49:01     OS : Windows 10     EXCEL : 未指定
また質問させていただきます。
VBAの文法がわからないため、ちょっとしたことでつまずいています。

表の中のC列の最下行をコピーして、E列最下行の下に貼り付けようと、以下のプログラムを書きましたがエラーになってしまいます。
どこが悪いのか教えていただけないでしょうか。
よろしくお願い致します。

Dim gyo1 As Long
Dim gyo2 As Long
gyo1 = Range("C5").End(xlDown).Row
gyo2 = Range("C5").End(xlDown).Offset(1)
Range("C" & gyo1).Copy Range("E" & gyo2)

[返信 1] Re : コピー
投稿者 : BJ     投稿日時 : 2020/07/20(Mon) 14:42:08
お騒がせしました。
解決しました。
4行目を下記のようにしました。
gyo2 = Range("C5").End(xlDown).Row + 1
行とアドレスが混じっていました。
また、何かありましたらお願いします。

[返信 2] Re : コピー
投稿者 : BJ     投稿日時 : 2020/07/20(Mon) 14:47:06
お騒がせしました。
解決しました。
4 行目を下記のようにしました。
gyo2 = Range("C5").End(xlDown).Row + 1
行とアドレスが混じっていました。
また何かありましたらお願いします。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2020-08-10 18:26:40 )

Page
Top