2016-12-15 2 views
0

Приносим извинения, если этот вопрос был дан ответ раньше, я не был уверен, как его спросить. Я делаю почтовый отчет для работы. Есть область, в которую мы вводим пакетную информацию. Колонны A-F (партия №, схема, время выпадения, суммарные предметы, скидка и почтовая оплата). У меня есть область в колонках K-O, чтобы суммировать партии (все части из партии 1 будут суммироваться в колонке K)Добавление нескольких ячеек в столбце на основе значения в другом столбце, но в том же ряду

Теперь иногда мы можем иметь партии 1a, 1b и до 1c. То, что я пытаюсь сделать, это суммировать общие партии партии 1, даже если их больше одной, все в одной ячейке под столбцом Total Pieces. Более конкретно: ячейки ячеек в столбце D, где строка имеет пакет # в столбце A. Есть ли формула для этого или мне нужно пересмотреть лист по-другому?

enter image description here

Private Sub CommandButton1_Click() 

Dim iRow As Long 

Dim ws As Worksheet 
Set ws = ThisWorkbook.ActiveSheet 

iRow = ws.Cells(Rows.Count, 1) _ 
.End(xlUp).Offset(1, 0).Row 

With ws 
.Cells(iRow, 1).Value = Me.TextBox1.Value 
.Cells(iRow, 2).Value = Me.TextBox2.Value 
.Cells(iRow, 3).Value = Me.TextBox3.Value 
.Cells(iRow, 4).Value = Me.TextBox4.Value 
.Cells(iRow, 5).Value = Me.TextBox5.Value 
.Cells(iRow, 6).Value = Me.TextBox6.Value 
End With 

Unload Me 

End Sub 
+1

Что вы все пробовали? Отправьте свой код. – Rdster

+0

@Rdster Извините за поздний ответ:/ Private Sub CommandButton1_Click() Dim IRow As Long Dim WS Как Worksheet Set WS = ThisWorkbook.ActiveSheet IRow = ws.Cells (Rows.Count, 1) _ .END (xlUp) .offset (1, 0) .Row С WS .Cells (IRow, 1) .Value = Me.TextBox1.Value .Cells (IRow, 2) .Value = Me. TextBox2.Value .Cells (iRow, 3) .Value = Me.TextBox3.Value .Cells (iRow, 4) .Value = Me.TextBox4.Value .Ce LLS (IRow, 5) .Value = Me.TextBox5.Value .Cells (IRow, 6) .Value = Me.TextBox6.Value End With Выгрузка Me End Sub – Corbinjt101

+0

Редактировать свой пост с кодом. – Rdster

ответ

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