Добрый день, товарищи!
Нужно немного расширить функционал макроса, но не знаю синтаксиса Visual Basic.
Есть таблица закупки, для неё уже написан макрос. (таблицу прикреплю к теме)
Мне нужно чтобы в колонке A цикл foreach у меня искал дубли номеров заказов и удалял все лишние.
В колонке B находил текст "Услуги по доставке товара компанией СДЭК" и полностью удалял всю строку содержащую текст. Сам пишу на java, буду благодарен если подскажете как это реализовать.
Нужно немного расширить функционал макроса, но не знаю синтаксиса Visual Basic.
Есть таблица закупки, для неё уже написан макрос. (таблицу прикреплю к теме)
| Код |
|---|
Sub applyStyles()
Dim tblRn As Range
If ActiveSheet.ListObjects.Count > 0 Then
For Each LO In ActiveSheet.ListObjects
LO.Unlist
Next
End If
Set tblRn = Range([A1].End(xlToRight), Cells(Rows.Count, 1).End(xlUp))
With tblRn
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
End With
ActiveSheet.ListObjects.Add(xlSrcRange, tblRn, , xlYes).Name = "?????????????"
With ActiveSheet.ListObjects("?????????????")
.TableStyle = "TableStyleLight9"
.ShowTotals = True
For i = 9 To 12
.ListColumns(i).TotalsCalculation = xlTotalsCalculationSum
Next i
End With
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
|
В колонке B находил текст "Услуги по доставке товара компанией СДЭК" и полностью удалял всю строку содержащую текст. Сам пишу на java, буду благодарен если подскажете как это реализовать.
Изменено: - 01.11.2018 21:02:08
