查找第一个数字或日期列的列索引

ynitSed

我是VBA编码的新手,我想在工作表中找到第一个数字/短日期/日期列的列索引

数据看起来像这样的一个例子:

id     sex     2015   2016
2       M       1       3
4       F       7       5
3       F       8       9

在此示例中,答案应为3。我想将其设置为变量,以便以后使用此数字。

到目前为止,这是我的代码:

Sub find_value()

Dim c As Range
Dim firstAddress As String

With Worksheets(1).Range("A1:A500") 
    Set c = .Find(2015, lookin:=xlValues) 

End Sub

如您所见,这只是一个静态解决方案。

任何想法都很棒!非常感谢

机甲

非常粗糙,但是这里有个函数可以让您获得想要的结果。您可以调用以result供以后使用,也可以根据需要调用该函数。有目的地对此进行了细分,以便您了解如何find_value定义。您可以选择合并代码。

Sub test()
    Dim result As String
    result = find_value(2015, 1) 'find year 2015, entry 1
    
    Debug.Print result
    
End Sub

Function find_value(year As Integer, entry As Integer)
    Dim yearVal, entryVal, foundVal As Integer
    yearVal = Application.WorksheetFunction.Match(year, Worksheets(1).Range("1:1"), 0)
    entryVal = Application.WorksheetFunction.Match(entry, Worksheets(1).Range(Worksheets(1).Cells(1, yearVal), Worksheets(1).Cells(500, yearVal)), 0)
    foundVal = Cells(entryVal, yearVal + 1)
    find_value = foundVal
End Function

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

在不是NaN的列中查找第一个和/或最后一个值的索引

查找字符串中第一个数字的索引

在列中查找第一个缺少的日期(Oracle)

R.将字符串以第一个数字分为两列

根据条件更改列中的第一个数字

查找每个索引的每个列的第一个非空出现的最佳方法?

获取0和1列表中每个重复数字块的第一个数字

查找无数个数字的总和的第一个出现

提取文本列中特定单词之后的第一个数字

查找数字串中的第一个数字

查找并替换PHP中除第一个数字外的数字

查找.txt文件的第一个数字-Java

如何从每行的第一个数字列开始导入

从列MySql中删除第一个数字

文本到列:在值的第一个数字处分割

列中第一个数字旁边的查找值

如果不是第一个,则设置日期列

如何通过第二列中的第一个数字将文件拆分为较小的文件

查找数字首次出现的第一个索引

Bash ::如何根据文件的第一个数字列排序?

在 Python 循环中查找第一个数字索引?

根据日期和 ID 列查找第一个值

根据列中的第一个数字合并数组行

查找具有匹配日期分量的第一个日期时间元素的索引

更新 CSV 文件以删除第一个数字并在特定列中插入小数位

查找从列底部开始的第一个非零元素的索引

映射列并使用 map_dbl 提取第一个数字

匹配列中的日期并向后工作以查找值的第一个先前出现

R:删除具有相同第一个数字的两列的行