Question

VBA查找某excel中sheet1里面名为abc的列,并且将该列下所有行的数据存入数组或者字符串中?

请问该怎么编写?急需!!跪求!谢谢了
excel为ActiveWorkbook

Answer 1

参考

sub aaa()
dim arr,c&,brr
arr=sheets(1).usedrange.value
for c=1 to ubound(arr,2)
    if arr(1,c)="abc" then '这里假设字段在第一行
       brr=application.transpose(application.index(arr,,c))
       brr(1)="" '这里的得的数组brr是一个包含字段abc的一维数组，这里是把字段简单的去掉，看你后面的操作，如果有必要，可对brr进行排序，参考昌泡排序就可以了
       exit for
    end if
 next c
 end sub