|
Sheet2に以下の様にデータを入れて、Sheet3に転記するサンプルを作ってみました。
定数を適当にいじってみてください。
A B
1 name Value
2 a 300
3 b 100
4 c 50
5 d 175
6 e 25
7 f 210
Sub Sample1()
Dim EndRow&, TRange As Range
Dim T_Sheet As Worksheet, P_Sheet As Worksheet
Const T1Col$ = "A", T2Col$ = "B"
Const P1Col$ = "A", P2Col$ = "D"
Const StaRow& = 2, PasRow& = 2
Const B_Line& = 5
Set T_Sheet = Sheets("Sheet2")
Set P_Sheet = Sheets("Sheet3")
EndRow& = T_Sheet.Cells(65536, T1Col$).End(xlUp).Row
With T_Sheet
If EndRow& > B_Line& Then
Set TRange = .Range(.Cells(B_Line& + 1, T1Col$), _
.Cells(EndRow&, T2Col$))
TRange.Copy Destination:=P_Sheet.Cells(PasRow&, P2Col$)
Set TRange = .Range(.Cells(StaRow&, T1Col$), .Cells(B_Line&, T2Col$))
Else
Set TRange = .Range(.Cells(StaRow&, T1Col$), .Cells(EndRow&, T2Col$))
End If
End With
TRange.Copy Destination:=P_Sheet.Cells(PasRow&, P1Col$)
Set T_Sheet = Nothing
Set P_Sheet = Nothing
Set TRange = Nothing
End Sub
|
|