Доброго всем вечера!
Подскажите подалуйста путь для решения следующей задачи. Есть выгрузка платежей из базы данных в Excel. Нужно ее постоянно оптимизировать для дальнейшей работы. Что нужно:
1. Удалить ненужные столбцы. Нужно прописать определенные имена столбцов так как выгрузка может меняться в зависимости от удаления или добавления столбцов в программе.
2. Удалить все пустые столбцы и строки если таковы имеются (а они есть иногда)
3. Нужно удалить задвоения столбцов. То есть если первый столбец с названием "Amount" находиться в "A:A", значит любой следующий после "A:A" должен быть удален с таким же названием и т.д., но начаться он может и не с "A:A". Оставить только первый слева.
4. Найти три определенных столбца (есть конкретные их имена) и ими заменить другие три столбца. Можно даже вырезать и вставить. Например есть имена (entry date, current name, payment). нужно найти "entry date", вырезать (или скопировать) далее найти поле "process date" и вставить "entry date" вместо "process date". И так все необходимые имена. Потом удалить пустые поля которые остались от (entry date, current name, payment) если было "вырезать"
5. установить фильтр на столбце "Paycat" с следующими значениями (все значения начиная с 2(208, 210, 211, 228 и тд) и 458, и 456).
PS: все делаеться на уровне столбцов, данные в строках не интересуют, кроме фильтра. То есть вырезать, вставлять, копировать можно целыми столбцами.
Что я смог найти на просторах интернета:
Этот код удаляет нужные столбцы, удаляет пустые. Как мне его дописать для моих следующих пунктов?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub DeleteSpecifcColumn()
Dim xFNum, xFFNum, xCount As Integer
Dim xStr As String
Dim xArrName, As Variant
Dim MR, xRg As Range
On Error Resume Next
Set MR = Range("A1:Z1")
xArrName = Array("Document #", "Invoice #", "Objection", "Duplicate?", "Unapproved", "In-House", "RSV Error", "Payment Type ID", "Payment Type Desc", "Payee Type Code", "Entity ID", "Payee Name")
xCount = MR.Count
xStr = xArrName(xFNum)
For xFFNum = xCount To 1 Step -1
Set xRg = Cells(1, xFFNum)
For xFNum = 0 To UBound(xArrName)
xStr = xArrName(xFNum)
If xRg.Value = xStr Then xRg.EntireColumn.Delete
If xRg.Value = 0 Then xRg.EntireColumn.Delete
Next xFNum
Next
End Sub
Учимся использовать тэги оформления кода -
FAQ
