셀 범위를 첫 번째 빈 행과 빈 열에

Question

달성하려고하는 것은 "Arkusz1"시트에서 첫 번째 세 셀을 복사하여 "Arkusz2"시트를 첫 번째 빈 열과 첫 번째 빈 열에 붙여 넣는 것입니다. 이 후 첫 번째 행이 10 개의 셀로 채워질 때까지 프로세스가 재구성되고 다음 행에서 복사가 진행됩니다. 열 A의 첫 번째 빈 행에 붙여 넣을 코드를 가지고 있지만 위에서 설명한대로 제대로 작동하지 않습니다. 나는 어떤 도움을 apreciate 것입니다. Goto Line 2 가 대신 엑셀을 읽고 여러 번 것을 반복 복사 루프를 만들 필요가 어떻게 많은 세포 알 -

Sub y() 
LastRowy = Sheets("Arkusz2").UsedRange.Rows.Count 
lastCol = Sheets("Arkusz2").Cells(LastRowy, Columns.Count).End(xlToLeft).Column 

Set targetRNg = Worksheets("Arkusz1").Range("A4") 


With Excel.ThisWorkbook.Sheets("Arkusz2") 
    colCount = Arkusz2.UsedRange.Rows(LastRowy).Columns.Count 
End With 
MsgBox colCount 
If colCount > 10 Then GoTo Line1 Else GoTo Line2 

Line1: 

With Excel.ThisWorkbook.Sheets("Arkusz2") 
    Set destRng = .Cells(LastRowy, .Columns.Count).End(Excel.xlToLeft).Offset(0, 1).Resize(targetRNg.Rows.Count, targetRNg.Columns.Count) 
    destRng.Value = targetRNg.Value 

End With 

Answer 1

내가 좋아하는 문장을 사용하지 않는 것입니다.

다음 문은 나에게 잘못된 같습니다

colCount = Arkusz2.UsedRange.Rows(LastRowy).Columns.Count 

당신은 당신이 원하는 행에 도착하고/따라

Function fn_GetLastColumn(ByVal sSheetName As String, ByVal iRow As Integer) As Integer 
    Dim sht As Worksheet 
    Set sht = ThisWorkbook.Sheets(sSheetName) 
    fn_GetLastColumn = sht.Cells(iRow, sht.Columns.Count).End(xlToLeft).Column 

End Function 

Function fn_GetLastRow(ByVal SheetName As String, ByVal iColNo As Integer) As Integer 
    Dim sht As Worksheet 

    Set sht = ThisWorkbook.Sheets(SheetName) 

    'Ctrl + Shift + End 
    fn_GetLastRow = sht.Cells(sht.Rows.Count, iColNo).End(xlUp).Row 

End Function