在excel中,宏代码计算同列中的相同两个单元格数据之间的单元格个数，空单元格不计算在内?

Question

A列 B列
1 a
2 a 1
3 b
4
5
6 c
7 d
8 a 4
10
11
12 a 1
13 b
14 a 2
15 a 1
16
17 a 1
18
19
20
谢各位高手赐教
先谢了
此列，计算A列中的两个相同数据a之间的单元格个数，空单元格不计算在内?

Answer 1

暂时只想到了借助辅助列的办法，

1、在B1单元格输入公式：=IF(A1="a",COUNTIF(INDIRECT("$A$1:A"&ROW(A1)),"*"),"")，向下填充

2、在C1单元格输入公式：=IF(A1="a",ROW(A1),"")，向下填充

3、在D2单元格输入公式：=IF(B2<>"",MAX($C$1:C1),"")，向下填充

4、在E2单元格输入公式：=IF(B2<>"",B2-INDIRECT("B"&D2),"")，向下填充

最终E列即是最终结果，如下图所示：

追问

谢了，不过我需要宏代码计算，
方便快捷

追答

Sub mysub()
Dim findChr As String
Dim chrCount As Integer
findChr = InputBox("请输入要计算的字符！", "请输入", "a")
For i = 1 To UsedRange.Rows.Count
If Cells(i, 1).Value "" Then
chrCount = chrCount + 1
End If
If Cells(i, 1).Value = findChr And i 1 Then
Cells(i, 2) = chrCount
chrCount = 0
End If
Next i
End Sub

追问

计算时会提示("请输入要计算的字符！", "请输入", "a")
如何去掉这一步，直接计算数据a就可以了

追答

把findChr = InputBox("请输入要计算的字符！", "请输入", "a")这一句换成
findChr = “a”

英文引号

追问

高手谢了，等一下选为满意答案，编写VBA学这知识怎么学，哪科目,报考什么专业，计算机的哪一种

追答

首先看看visual basic，然后熟悉熟悉office相关的dom、对象的方法、属性等

Answer 2

Sub qqq()
For i = 1 To Range("a65536").End(xlUp).Row
k = 1
For t = i + 1 To Range("a65536").End(xlUp).Row
If Range("a" & i) <> "" Then
If Range("a" & t) = Range("a" & i) Then

Range("b" & t) = k
GoTo 10
ElseIf Range("a" & t) <> "" Then k = k + 1
End If
End If
Next t
10 Next i
End Sub

追问

,B列计算结果为1415211
中间多了个5，
帮忙再看看，谢了