关于Excel 问题，高手进！！2

发布网友发布时间：2023-10-11 05:15

共4个回答

热心网友时间：2024-12-05 00:08

Dim sName As String
Dim sColor As String
Dim sSize As String
Dim sBaseName As String
Dim iSheetCount As Integer
Dim iRowCount As Integer
Dim iCellY As Integer
Dim iCellX As Integer
Dim iCount As Integer

iCellX = 1 '要查询数据的表格中起始列位置数
iCellY = 1 '要查询数据的表格中起始行位置数
iCount = 0 '要查询数据个数变量初始化为0,暂定就查询一种，种类多达话多加几个变量，判断累加就可以
sBaseName = ThisWorkbook.Sheets(1).Cells(5, 1) '被查询的数据，就是所说的输入查询内容的单元格位置

For i = 1 To 10 ' 查询各个工作薄，暂定工作薄范围是1到10，根据实际情况而定
For j = 1 To 100 ' 查询工作薄中，逐个行查询相关数据，暂定行范围是1到100，根据实际情况而定
If ThisWorkbook.Sheets(i).Cells(j, 1) = sBaseName Then ' 若判断结果为 True，则完成下一行语句。
iCount = iCount + 1
Else
End If
Next j
Next i

以上都是简单的写了个大概结构，根据自己实际情况再添加些判断和参数就可以！希望对你有帮助追问谢谢你。请问，能否麻烦你举一个简单的例子？

追答这个算简单说明了，可能你对编程不了解的缘故吧？VBA需要点编程知识，实在不行简单给我个sheet我帮你解决 -_-!

热心网友时间：2024-12-05 00:08

比较麻烦...

热心网友时间：2024-12-05 00:09

假如说ABC三列，要在D1进行统计，那么可以在D1输入：

2、“=COUNTIF(A:A,"3#圆珠笔")”（不含“”），可以统计光电的数量，其他型号同理；

热心网友时间：2024-12-05 00:09

VBA的做法比较实际