亚洲精品久久久久久第一页-人妻少妇精彩视品一区二区三区-91国产自拍免费视频-免费一级a在线播放视频正片-少妇天天日天天射天天爽-国产大屁股喷水视频在线观看-操美女骚穴抽插性爱视频-亚洲 欧美 中文字幕 丝袜-成人免费无码片在线观看

如何批量統(tǒng)計Excel中相隔顏色的單元格間的數(shù)量

修法布施得聰明智慧,多分享讓生活更美好 。上次分享了《Excel怎樣計算填充色個數(shù)》,介紹了計算填充色個數(shù)自定義函數(shù)處理方法,下面分享怎樣批量統(tǒng)計相隔顏色的單元格間的單元格個數(shù)處理方法 。
打開Excel并準(zhǔn)備工作
首先打開Microsoft Office Excel 2007,新建文檔并保存文件名為《Excel怎樣提取兩組數(shù)據(jù)的交集 .xlsm》 。接著按下快捷鍵ALT F11打開VBE(宏)編輯界面,在菜單欄【插入】下拉列表中選擇【模塊(M)】 。
插入宏代碼
在VBE編輯界面中插入一個模塊,在代碼框中復(fù)制粘貼如下代碼:
“`vba
【如何批量統(tǒng)計Excel中相隔顏色的單元格間的數(shù)量】Sub 選相隔顏色單元格計個數(shù)()
Dim myr As Range, myrs As Range, mb(), i As Long, cr As Long, k
Set myrs Selection
i 0
ReDim mb(1 To , 1 To 3)
For Each myr In myrs
i i 1
If i 1 Then
k k 1
cr
mb(k, 1) (RowAbsolute:False, ColumnAbsolute:False)
mb(k, 3)
Else
If cr Then
k k 1
mb(k, 1) (RowAbsolute:False, ColumnAbsolute:False)
mb(k, 3)
mb(k – 1, 2) mb(k, 3) – mb(k – 1, 3) – 1
End If
End If
Next myr
Set myr (prompt:”選擇一單元格輸出數(shù)據(jù)”, Type:8)
(1, 2) Array(“顏色單元格地址”, “相隔顏色單元格個數(shù)”)
(1, 0).Resize(k, 2) mb
End Sub
“`
運行宏并查看結(jié)果
回到工作表窗口,選擇相隔顏色的單元格區(qū)域,然后運行【選相隔顏色單元格計個數(shù)】宏 。在菜單欄中點擊【視圖】,選擇【宏】,找到并執(zhí)行該宏 。接著會提示“選擇一單元格輸出數(shù)據(jù)”,選擇合適的單元格后,即可查看輸出結(jié)果 。
如果這篇文章對您有所幫助,請不要忘記點擊下方的“投票點贊”或者“收藏”來支持我們!如果還有任何疑問,請點擊下方的“我有疑問”,我們將竭誠為您解答 。感謝閱讀!


    以上關(guān)于本文的內(nèi)容,僅作參考!溫馨提示:如遇健康、疾病相關(guān)的問題,請您及時就醫(yī)或請專業(yè)人士給予相關(guān)指導(dǎo)!

    「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容,希望對您有所幫助: