會(huì)VB的話，VBA上手超快。EXCEL主要用Sheet和Cell（Range）對(duì)象，比如A2可以寫成Sheet1.Cells(2,1)或者Sheet1.Range(A2)，挺簡(jiǎn)單的。
-
-
要是會(huì)VB，編VBA就簡(jiǎn)單很多。
你的具體問(wèn)題我沒有看，只是想說(shuō)一些基本的東西。
EXCEL主要調(diào)用的是Sheet對(duì)象和Cell (或者說(shuō)是Range)對(duì)象。
例如，Sheet1中的單元格A2可以用Sheet1.cells(2,1)調(diào)用，也可以用Sheet1.Range("A2")進(jìn)行調(diào)用。 -
假設(shè)你將數(shù)據(jù)放在A列
那么你可以在菜單欄的空白處右鍵單擊，選中“控件工具箱”，點(diǎn)一下“控件工具箱”中的“命令按鈕”，然后在任意單元格點(diǎn)擊，即出現(xiàn)一個(gè)按鈕，雙擊此按鈕，跳轉(zhuǎn)到宏編輯器，輸入以下內(nèi)容
x = Cells(1, 1) '存儲(chǔ)臨時(shí)數(shù)據(jù)
y = 0 '計(jì)重復(fù)次數(shù)
z = 0 '計(jì)數(shù)
For i = 2 To 16 '16改成總共行數(shù)
If (Cells(i, 1) = x And y < 3) Then
y = y + 1
Else
y = 0
z = z + 1
x = Cells(i, 1)
End If
Next
MsgBox z
沒找到滿意答案？去問(wèn)豆包AI智能助手
最新回答 更多>
相關(guān)問(wèn)答
- 小米藍(lán)牙耳機(jī)air腫么配對(duì)
- 5800w的手機(jī)好不好才能用exe的格式？
- 怎么將.TXT文件轉(zhuǎn)換為.EXL文件？轉(zhuǎn)換后可以達(dá)到使每列的數(shù)據(jù)求和！
- 地下城DNFchina.exe文件 丟了 腫么下載？
- AUTOCAD怎么打開電子圖板*.EXB文件??
- SQL關(guān)于IN和EXISTS的不同？
- 為何我的蘋果電腦打不開后綴為exe的文件啊？
- 怎么使用execl中的VB編輯器編程
- 求酷派5860刷機(jī)教程附件download_V9.01.25/組裝客服Downloader.exe在哪找出?
- 格力空調(diào)修理有統(tǒng)一的收費(fèi)標(biāo)準(zhǔn)嗎
- 腫么用MFC的按鈕調(diào)用一個(gè)exe的文件
- 我開機(jī)時(shí)為什么老是彈出mscorsvw.exe應(yīng)用程序錯(cuò)誤啊！還說(shuō)07x79034524指引用的0x00000000存儲(chǔ)空間
- 為什么客戶要求工廠做SEDEX認(rèn)證呢? 詳細(xì)??
- 有關(guān)EXECL打印時(shí)如何把一行固定到以下每一行
- 華為榮耀1799的手機(jī)保修標(biāo)準(zhǔn)?