VBA程式設計，選擇Excel眾多單元格中出現的內容的功能。

您需要使用 VBA 嗎？

其實過濾器裡有乙個“高階過濾器”，可以複製重複的資料，複製稿件要發出去！

可以參考以下VBA！

sub weiyi_pn()

dim arr

dim mydic as object

dim myitem, mykey

dim i as integer

with "mold")

aa = cells(, 27).end(xlup).row

range("aa1:aa" &aa).clear

set mydic = createobject("主梁")

for i = 1 to ubound(arr)

mydic(arr(i, 1)) mydic(arr(i, 1)) 1

nextmykey =

myitem =

for i = 0 to ubound(mykey) -1

for j = i + 1 to ubound(mykey)

if mykey(i) >mykey(j) then

temp = mykey(i)

mykey(i) =mykey(j)

mykey(j) =temp

temp = myitem(i)

myitem(i) =myitem(j)

myitem(j) =temp

end if

nextnext

aa1].resize(ubound(mykey) +1, 1) =

g1].resize(ubound(myitem) +1, 1) =

end with

end sub

資料樣本或**樣式呢？

以下盡可能簡單實現，使用自定義函式統計有效音符個數，並將**寫入模組，如下圖所示：

然後工作表可以使用這個函式，如下圖所示：

當然，這個公式可以拉下來，引數可以任意寫。

最後，程式文字為：

option explicit

function 有效注釋數量 （byval s$） as longdim n&， t， i&

for each t in split(replace(s, "

t = replace(t, "

i = instr(t, "

if i = 0 then i = len(t)if i > 6 then n = n + 1next t

有效票據數 = n

end function

1. 將 A 列（分為四列）分開。

2.使用d列的公式可以得到結果（如果判斷a、b、c三個計算公式）。

我要說幾件事：

1.資料分離的結果不需要儲存在單元格中，除非你有這個需要。 這是相當耗時的。

2.盡量使用陣列，原始資料使用陣列，需要的輸出列使用陣列，區域和陣列之間的資料比較快。

3.分離資料，建議先資料後列分開，這樣程式處理圖例的第四行和第二行是同乙個程式。 而不是新增分支判斷。

4.資料很多，占用很多時間，所以要有耐心。