Привет, у меня есть следующий код, первая часть которого работает нормально, но я не могу заставить целевой бит для rng2 работать - продолжаю получать «ошибку приложения или объекта».Интересно, может ли кто-нибудь помочь с тем, где я иду не так, как я пробовал несколько разных методов (пункт назначения является самым близким, о котором я немного знаю).
Sub Assign_TN()
' Assign_TN Macro
Dim ws As Worksheet
Dim wbk2 As Workbook
Dim ws2 As Worksheet
Dim Rng As Range
Dim rng2 As Range
Set ws = ThisWorkbook.Worksheets("Check sheet")
Set wbk2 = Workbooks.Open("A Location\TNG Register ongoing.xlsx")
Set ws2 = wbk2.Worksheets("TNG")
'This clears the TN has failed comment in the event the cannot generate Tn macro has been run
ws.Range("A83").ClearContents
' Copy the first set of data from the checksheet and paste into the first blank row of the TNG register
Set Rng = ws.Range("B93:M93")
Rng.Copy Destination:=ws2.Cells(Rows.Count, 2).End(xlUp).Offset(1)
'copy second set of data from checksheet and paste into first blank cell in column 22
Set rng2 = ws.Range("Q93:AM93")
rng2.Copy
Destination = ws2.Cells(Rows.Count, 22).End(x1Up).Offset(0)
Все, что мне нужно сделать, это скопировать дваранжирует данные в две отдельные области первой незаполненной строки на втором листе.По сути, это генерирует номер подтверждения, который впоследствии копируется и вставляется в первый лист (этот фрагмент кода не был добавлен и работает хорошо).