分类:实习,excel宏,VBA循环,SQL数据库录入
语言:VBA,SQL
进度:遇到问题,已解决,并非最优解
问题描述:需要对excel某一行中的若干个单元格进行循环读取,因为列标是英文大写字母,存在合并单元格,同时涉及到”Z“之后的”AA“,”AB“列标,无法简单的使用for对asc码进行循环。
解决方案:使用数组,代码如下:
Dim abc(1 To 99)
abc(1) = "B"
abc(2) = "E"
abc(3) = "H"
abc(4) = "K"
abc(5) = "N"
abc(6) = "Q"
abc(7) = "T"
abc(8) = "W"
abc(9) = "Z"
abc(10) = "AC"
abc(11) = "AF"
此时大写字母已经有了对应的数组元素,对数组元素可以使用for循环其下标,来得到需要的字母,并将其作为列标读取单元格:
'" & Range(abc(g) & 21) & "'
这里请注意双引号的位置,单元格的列标是文本格式(也有说行标也是,未验证)。