Excel問題要請教各位大大,,有關VBA搜尋<已解答>

LUXEM

LUXEM
個人積分：98分
文章編號：47998867

98分

樓主

2013-12-31 16:59

請教各位大大,

我想查詢某些"名稱"對應的"欄位"的總加總,

例如以下
Excel問題要請教各位大大,,有關VBA搜尋<已解答>

如上圖,我想查 "騎士"他"善惡值"的加總,並附上"ID"

然後可以列出來,如下圖

Excel問題要請教各位大大,,有關VBA搜尋<已解答>

上例只是範例,

我想問,那如果在查找數百筆時,是否能找出並列出總合呢?

(請問,我有附檔RAR看的到嗎?)

2013-12-31 16:59 發佈

文章關鍵字 excel 問題 VBA 大大

venvenho

venvenho
個人積分：39分
文章編號：48000144

39分

2樓

2013-12-31 18:21

這用樞紐或小計不是比較快嗎？

LUXEM wrote:
請教各位大大,我想查...(恕刪)

LUXEM

LUXEM
個人積分：98分
文章編號：48000344

98分

樓主

2013-12-31 18:38

venvenho wrote:
這用樞紐或小計不是比...(恕刪)

其實因為資料筆數很多.範例只有一小部份而已,

所以幾百筆資料比對下來,可能很久,另外是資料會常變動,人員也會增加或減少,

pineapple

pineapple
個人積分：0分
文章編號：48000524

0分

4樓

2013-12-31 18:57

如果只是這樣，樞紐就可以，資料量大用vba一樣不會比較快

simonni

simonni
個人積分：2042分
文章編號：48001213

2042分

5樓

2013-12-31 20:08

說明

自動抓取該欄最後一行(不能有空行)
ActiveCell.CurrentRegion.Columns(ColNo).Rows.Count

若有空行
下列開頭單引號刪除
Dim RowsEnd As Long '最後一行
RowsEnd = 100 '最後一行(這行漏加)
For i = 1 To RowsEnd
下列開頭 + 單引號
For i = 1 To ActiveCell.CurrentRegion.Columns(ColNo).Rows.Count

虛線以下 VBA程式
-----------------------------------------------------------------------
Dim i As Long '流水號
Dim ColNo As Integer '搜尋欄位
Dim ColCou As Integer '計算欄位
Dim Total As Integer '總計
'Dim RowsEnd As Long '最後一行
Dim FindStr As String '搜尋字串

'虛線內自行輸入 ----------------
ColNo = 2 '搜尋欄位
ColCou = 4 '計算欄位
FindStr = "騎士" '搜尋字串
'RowsEnd = 100 '最後一行(這行漏加)
'-------------------------------

Total = 0
'For i = 1 To RowsEnd
For i = 1 To ActiveCell.CurrentRegion.Columns(ColNo).Rows.Count
If Cells(i, ColNo) = FindStr Then
Total = Total + Cells(i, ColCou)
End If
Next i
MsgBox FindStr & " 總計 : " & Total

LUXEM

LUXEM
個人積分：98分
文章編號：48001775

98分

樓主

2013-12-31 21:06

simonni wrote:
說明自動抓取該欄最後...(恕刪)

太神啦!!!謝謝大師的解答!!

已經解決了問題,

simonni

simonni
個人積分：2042分
文章編號：48002924

2042分

7樓

2013-12-31 22:45

LUXEM wrote:
太神啦!!!謝謝大師...(恕刪)

漏加一行若都使用自動抓取該欄最後一行指令可無視

0931779549

0931779549
個人積分：1464分
文章編號：48003077

1464分

8樓

2013-12-31 23:00

simonni wrote:
說明

自動抓取該欄...(恕刪)

強者...