2013-05-20 55 views
0

我在這些主板上找到了類似於我的問題的答案。但是,我的數據設置不同,我沒有得到我需要的結果。Excel通過宏相似的行

我在Excel中的數據如下所示:

ParcelNumber BillNumber  OwnerName  Code Year DollarAmount 
111222   9117222   Smith, Bill 22 2013 $999 
111222   9117222   Smith, Bill 22 2013 $276 
111222   9117222   Smith, Bill 22 2013 $100 
111223   9110001   Tan, Steve 22 2013 $96 
111223   9110001   Tan, Steve 22 2013 $12 
111224   9112396   Bishop, John 22 2013 $126 
111225   9113333   Fidel, Jason 22 2013 $990 

我需要做到以下幾點:

對於這一切都是相同的包裹數,累計起來的金額和鞏固一個每個宗地號碼一行。輸出將如下所示:

ParcelNumber BillNumber  OwnerName  Code Year DollarAmount 
111222   9117222  Smith, Bill 20  2013 $1375 
111223   9110001  Tan, Steve 20  2013 $108 
111224   9112396  Bishop, John 20  2013 $126 
111225   9113333  Fidel, Jason 20  2013 $990 

非常感謝。

+1

你也可以通過數據透視表來做到這一點。你介意使用數據透視表的解決方案嗎? – Jerry

+0

我對此並不熟悉,但如果它很容易運行,當然! – user38324

+0

這概括了所有列 - 不是我想要的: 次試驗(+) LASTROW = ActiveSheet.UsedRange.Rows.Count 集合R = ActiveSheet.UsedRange.Resize(1) 隨着Application.WorksheetFunction 對於iRow = LastRow - 1 To 2 Step -1 Do While Cells(iRow,1)= Cells(iRow + 1,1) LastCol = r(r.Count).Column SumCol = LastCol + 1 For iCol = 2 To SumCol (iRow,iCol)= .Sum(Range(Cells(iRow,iCol),Cells(iRow + 1,iCol))) Next iCol 行(iRow + 1).Delete Loop Next iRow End With End Sub – user38324

回答

1

警告:相當多的未來圖像...

好,選擇您的整個表格,去Insert>PivotTable並單擊OK嚮導。

  1. 單擊並拖放所有字段,但將最後一個字段從右窗格拖放到左下角的框中。最後一個字段放在右下角的框中。你應該得到這樣的事情:

    enter image description here

  2. 轉到PivotTable DesignLayout,挑Show in Tabular FormDo not show subtotals

    enter image description hereenter image description here

    而且你應該做的事!您可以根據需要將您需要的信息複製到其他工作表中。

    enter image description here

如果數額不能正常顯示,請確保計算是「總和」,而不是「計數」。如果您正在旋轉的列中存在非數字單元格,則會將「計數」設置爲默認值。要更改計算,只需右鍵點擊數據透視表中的任意數字,轉至'彙總數據'並選中'總和'。

+0

簡單而快速的回答。你做了我的星期一。謝謝。 – user38324

+0

不客氣@ user38324 ^^ – Jerry