如何根据单元格的内容确定数组数据位置

vleexhya

首先感谢老师们的帮助。
求助内容见图片。
补充：
如何判断姓名行也是个问题，我是通过 A2到A列”合计：“上面一行来判断的。因为”合计：“下面还有其他内容，所以通过currentregion也无法判断第2行到多少行是姓名行，不知道老师们有没有比较好的办法。

shiruiqiang

1、成绩合计>0
2、查找列“姓名”和“成绩合计”

vleexhya

shiruiqiang 发表于 2024-2-22 10:52
1、成绩合计>0
2、查找列“姓名”和“成绩合计”

”成绩合计“不是固定在F列，如果插入列，位置就变了。表格不规范，不好写代码。而且这些代码我也不会表达。

洋务德雷

我觉得你的问题应该是在最初的数据中或操作中。不在这一步。

shiruiqiang

要给你模拟附件，还要写代码

limonet

关键字：getrows

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, Arr As Variant
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select 姓名,成绩合计 From [Sheet1$] Where 性别<>'' And 成绩合计>0"
    Arr = Cn.Execute(StrSQL).GetRows
End Sub

vleexhya

shiruiqiang 发表于 2024-2-22 14:19
要给你模拟附件，还要写代码

多谢，看来这个sht.UsedRange.Find(temp(i)).Column 是关键，我的难点在这里。

vleexhya

limonet 发表于 2024-2-22 14:29
关键字：getrows

请问老师使用这种我不知道叫什么，就是SQL /ado这种有什么局限性吗？之前有一个老师也用这种帮我解决问题。

vleexhya

洋务德雷 发表于 2024-2-22 14:12
我觉得你的问题应该是在最初的数据中或操作中。不在这一步。

您的意思是首先将数据规范？  被操作的表格不受我控制。