У меня есть данные, как этотматч и конкатенации VBA
A B C D
1. Customer T/C NET VAT
2. Sandy T1
3. Sandy T5
4. Sandy T1
5. Sandy T5
6. Candy T1
7. Candy T5
8. Dandy T5
9. Dandy T1
Где NET
и VAT
содержит $Amount
& 1,2
и т.д., номера строк & T1/T5 являются TaxCodes
Резюме Столбцы
R S T
1. Customer T5NET T5VAT
2. Sandy
3. Candy
4. Dandy
Я хочу обобщить NET
+ VAT
с cell.address
в Сводных столбцах, соответственно, перед Клиентом.
Пример: Резюме Столбцов
R S T
1. Customer T5NET T5VAT
2. Sandy =C3+C5 =D3+D5
3. etc
Я предполагаю, что я буду нуждаться в Match
функции на матч #1 Customer
(аннотации к базе данных) и #2 T5
затем Объединить значение смещения от суммарного имени.
Editied Теперь (Это близко, но как я могу изменить его для функции соответствия?)
`Sub MatchConcanate()
Dim outputText As String, Rw As Range, cell As Range
delim = "+"
Application.ScreenUpdating = False
Range("A:A").SpecialCells(xlCellTypeConstants).Select
For Each Rw In Selection.Columns
'Here I want it to only Select Supplier till it is duplicate (they are sorted) and then to next
For Each cell In Rw.Cells
If cell.Value = "T5" Then
outputText = outputText & delim & cell.Address
End If
Next cell
With Rw
'Here I'd like a match function instead of pasting it all in cell 1
.Cells(1).Offset(0, 5).Value = outputText
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
End With
outputText = ""
Next Rw
Application.ScreenUpdating = True
End Sub`
проверяет команды Обзора и изменения по ссылкам только, и sumif не разрешит его. Нужны конкретные ссылки в сводном листе. –
Я не понимаю твое предложение ... Я работал над этим решением – 99moorem