2015-07-08 2 views
1

У меня есть данные, как этотматч и конкатенации 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` 

ответ

0

Нажмите все правильно один столбец и положить в A1 «= B1 & C2». например Заказчик и T/C

Затем в столбцах, которые вы хотите СГМ использовать SUMIF

Name T1 T2 
Sandy =SUMIF(A:A,S2&$T$1,D:D) =SUMIF(A:A,S2&$U$1,D:D) 
Candy =SUMIF(A:A,S3&$T$1,D:D) =SUMIF(A:A,S3&$U$1,D:D) 
Dandy =SUMIF(A:A,S4&$T$1,D:D) =SUMIF(A:A,S4&$U$1,D:D) 

Изменяется переместился по одному из-за новый столбец «А»

+0

проверяет команды Обзора и изменения по ссылкам только, и sumif не разрешит его. Нужны конкретные ссылки в сводном листе. –

+0

Я не понимаю твое предложение ... Я работал над этим решением – 99moorem

Смежные вопросы