Как скопировать для каждого диапазона цикла (всей строки) на другой лист в той же книге - PullRequest
Новая
       24

Как скопировать для каждого диапазона цикла (всей строки) на другой лист в той же книге

0 голосов
/ 08 ноября 2019

Мне нужно скопировать диапазон для каждого цикла в другой лист в той же книге.

У меня есть цикл для каждого с затемненными диапазонами "ColV" и "v". V - это индивидуальный диапазон ячеек в диапазоне ColV во время цикла.

Этот раздел является проблематичным, и я уверен, что это связано с неправильным синтаксисом: v.EntireRow.Cut wsc.Range.Cells (i, "A") 

v.EntireRow.Cut wsc.Range.Cells(i, "A")

Public Sub Process()
  Dim WBSe, WBSeNext As String, Amt1, Amt2 As Double, i As Integer

  i = 6 'The Header row of the Closed Items sheet
  Set ColV = wsr.Range(Cells(8, 22).Address, Cells(LastRowr, 22).Address)

  For Each v In ColV
      If Left(v, 4) = "US1-" Then      
         WBSe = v.Value
         WBSeNext = v.Offset(1, 0)
         If WBSeNext = WBSe Then
            Amt1 = v.Offset(0, -3)
            Amt2 = v.Offset(1, -3)    
            If Amt2 = -Amt1 Then
                i = i + 1
                v.EntireRow.Cut wsc.Range.Cells(i, "A")
            End If    
          End If    
       End If    
   Next
End Sub


Run-time error '5': 
Invalid procedure call or argument
...