excel vba

cqy

Excel编程中，如何将Range"A1:F1"写出？ 本人试了：cells(1,(1:5))不行。

雪山飞狐_lzh

是合并的单元格么？

cqy

Dim counter as integer

For counter = 1 To 2
Worksheets("sheet1").Cells(counter, 1).Select

这cells(counter, 1)如何化为非合并的多单元格？

雪山飞狐_lzh

Sheet1.Range("a1:f1").Select

cqy

Sheet1.Range("a1:f1").Select


但对于循环中a1:f1无法自动变化。

雪山飞狐_lzh

你到底想达到什么目的？

laoliu09

你是不是想一行行地读excel表格啊？如果是的话，请试试下面的方法！


Dim counter as integer,str as string


for counter=1 to 2


         str="a" & counter& ":" & "f" & counter


         Sheet1.Range(str).Select


next counter

cqy

随心飘荡 、天涯海角 ：


二位好！Range("a1:f1").Select，在循环中的正确写法：Range(cells(1,1),cells(1,6)).Select,可以对cells内部数字用变量置换。


                                 多谢！


-------------------------------------------------


                                                                                                                                                                                                                                                                                                                                                                                                                                         -----cqy

laoliu09

哦，excel我用得不多，谢谢你啦，又学了一招！