Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
別シートの最終行の次の行への貼り付け
投稿日時: 19/12/01 19:35:26
投稿者: コッスルモリ

別シートの最終行の次の行への貼り付けについての質問です
 
シート2にある、データをコピー(コピー範囲はコピー範囲で違います)して
シート1の最終行に「行と列を入れ替えて値で貼り付け」したいのですが
ご教授頂けないでしょうか?
 
試したコード
 
sub 転記()
 
'変数の宣言
Dim LstRow1 As Long
'最終行の取得
LstRow1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row+1
 
 
Worksheets(2).Range("A2:C4").Copy
 
Worksheets(1).Select
Worksheets(1).Range("A" & LstRow1).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
 
Worksheets(2).Range("A2:C4").Copy
 
Worksheets(2).Range("A6:C10").Copy
 
Worksheets(1).Select
Worksheets(1).Range("A" & LstRow1).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
 
End sub
 
この式だとうまくいきません
 
よろしくおねがいします

回答
投稿日時: 19/12/01 19:57:43
投稿者: simple

2回の処理を実行していますが、
たぶん、1回目の貼付の上に、
2回目の貼付が実行されてしまっているからではないですか?
  
1回目の処理のあとで、改めて最終行を取得する必要があると思います。

投稿日時: 19/12/02 16:28:22
投稿者: コッスルモリ

解決しました!
ありがとうございます