' Key выбор в зависимости от того, как определяете одинаковые строки
If Not C_is.Exists(Key) Then If Not rng Is Nothing Then Set rng = Union(rng, Sh1.Range("a" & n).Resize(1, 7)) Else Set rng = Sh1.Range("a" & n).Resize(1, 7) End If
End If
Next
If Not rng Is Nothing Then LastRow = LastRow + 1 endRow = LastRow + rng.Rows.Count - 1 rng.Copy Sh.Range("a" & LastRow) Set rng = Union(rng, Sh1.Range("a" & n).Resize(1, 7)) Sh.Range("F" & LastRow & ":h" & endRow).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Sh.Range("H" & LastRow & ":h" & endRow) = "удалена" End If End Sub
Sub HCopy() Dim Sh As Worksheet, rng As Range, rg As Range ReDim KPopy(4) KPopy(0) = Array(1.1, 2.1, 3.1) KPopy(1) = Array(1.1, 2.2, 3.2) KPopy(2) = Array(1.1, 2.1, 3.3) KPopy(3) = Array(1.1, 2.2, 3.1) KPopy(4) = Array(1.1, 2.1, 3.2)
Set Sh = ActiveSheet LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Set rg = Sh.Range("A1:B" & LastRow) dx = rg LastRow = 3 For j = 0 To UBound(KPopy) KPopy1 = KPopy(j) For i = 0 To UBound(KPopy1) For n = 4 To UBound(dx) If dx(n, 2) = KPopy1(i) Then LastRow = LastRow + 1 Set rng = rg.Rows(n) rng.Copy Sh.Range("D" & LastRow) End If Next
Sub HCopy() Dim Sh As Worksheet, rng As Range, rg As Range KPopy1 = Array(1.1, 2.1, 3.1) KPopy2 = Array(1.1, 2.2, 3.2) KPopy3 = Array(1.1, 2.1, 3.3) KPopy4 = Array(1.1, 2.2, 3.1) KPopy5 = Array(1.1, 2.1, 3.2) Set Sh = ActiveSheet LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Set rg = Sh.Range("A1:B" & LastRow) dx = rg KPopy = KPopy1 GoSub Rachet KPopy = KPopy2 GoSub Rachet KPopy = KPopy3 GoSub Rachet KPopy = KPopy4 GoSub Rachet KPopy = KPopy5 GoSub Rachet Exit Sub Rachet: For i = 0 To UBound(KPopy)
For n = 4 To UBound(dx)
If dx(n, 2) = KPopy(i) Then If rng Is Nothing Then Set rng = rg.Rows(n) Else Set rng = Union(rng, rg.Rows(n)) End If End If Next Next If Not rng Is Nothing Then LastRow = Sh.Cells(Sh.Rows.Count, "D").End(xlUp).Row + 1 If LastRow < 4 Then LastRow = 4 rng.Copy Sh.Range("D" & LastRow) End If Set rng = Nothing Return End Sub
Каким боком скрипт гугл таблиц к excel. Для переноса одной выделенной строки
Код: (vb)
function _123() { var spreadsheet = SpreadsheetApp.getActive(); var sh= spreadsheet.getSheetByName('Архив'); var sh2= spreadsheet.getSheetByName('Ближайшие заказы'); var rng= sh2.getActiveRange(); sh.insertRowsBefore(1, 1); rng.copyTo(sh.getRange('a1'), SpreadsheetApp.CopyPasteType.PASTE_NORMAL, false); sh2.deleteRow(rng.getRow()); };
Вы уверены в этом. В проекте прописана конечная дата использования файла 07.07.2019. + счетчик на 50 раз открыть файл+ проверка времени компа Файл на помойку несите или с разработчиком связывайтесь.