返回列表 上一主題 發帖

[發問] [求助]欄位比較並計數的方法

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-23 16:25 | 顯示全部帖子

[發問] [求助]欄位比較並計數的方法

請問各位大老，有爬過相關文章，都無法獲得我想要的解答(小學生還無法下載檔案)，所以在這邊有幾個問題想請教：
1.如在此sheet1上，如下列所示，我要如何用程式知道(B欄位第2列)開始有資料，且共有9列資料??
2.如果想要得知B欄位上每筆資料重複的共有幾筆並顯示在C欄位上，如下列所示，該如何做??

請各位大老不吝告知，謝謝

         A         B           C
   2          0x0001       4
   3          0x0001
   4          0x0001
   5          0x0001
   6          0x0002       3
   7          0x0002
   8          0x0002
   9          0x0003       1
收藏 分享

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
2#
發表於 2011-3-23 20:17 | 顯示全部帖子
回復 2# Hsieh


謝謝大老幫忙，不過仍有些問題，希望能幫忙回答

Set B = Columns("B").Find("*") -- 是設定B欄一個範圍沒有指定長度的意思嗎??

If Not B Is Nothing Then R = B.Row Else Exit Sub  -- 意思是B欄如果有東西則R=B欄的列數嗎??

If d.Exists(Cells(R, 2).Value) = False -- 這段的意思是指??

謝謝大老不吝賜教~!

TOP

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
3#
發表於 2011-3-24 16:48 | 顯示全部帖子
不好意思一直發問，VBA的函數還真博大精深...

Set B = Columns("B").Find("*")
B欄找到有資料的第一個位置指定給變數B


請問 ("*") 是代表有資料的第一個位置嗎??
未來如果要搜尋特定的字串或是文字的的一個位置也可以如法炮製嗎??

TOP

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
4#
發表於 2011-3-25 15:17 | 顯示全部帖子
回復 2# Hsieh


If d.Exists(Cells(R, 2).Value) = False Then

Cells(R, 3) = Application.CountIf(Columns("B"), Cells(R, 2))

d(Cells(R, 2).Value) = Cells(R, 2).Value

sorry 大佬~這段程式應該是判斷是否有重複的欄位並且計數

各行程式的主要意思是否能大概說明一下??

網路是可以找，不過大佬願意幫忙，上手會更快一點^^"

一直請教不好意思~

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題