循环

Peny2020

请教各位，请问如何在A1:F1内循环输入下图黄色内容？谢谢指教。

MOY838840554

1. For i = 1 to 6 step 2
   
2. ws.cells(1,i).value="Q." + i
   
3. ws.cells(1,i+1).value="A." + i
   
4. next

复制代码

Peny2020

MOY838840554 发表于 2024-9-10 12:15

后面接的号码不是连续的？

taller

Qs18

1. Sub qs()
   
2.     For i = 1 To 6 Step 2
   
3.         m = m + 1
   
4.         Cells(1, i) = "Q." & m
   
5.         Cells(1, i + 1) = "A." & m
   
6.     Next
   
7. End Sub
   

复制代码

MOY838840554

Peny2020 发表于 2024-9-10 12:21
后面接的号码不是连续的？

1. dim k
   
2. For i = 1 to 6 step 2
   
3. k=k+1
   
4. ws.cells(1,i).value="Q." + k
   
5. ws.cells(1,i+1).value="A." + k
   
6. next

复制代码

Qs18

试试.......

Qs18

试试.........

大灰狼1976

别管我，我只是学习一下公式表达
[a1:f1] = [mid("AQ",mod(column(a:f),2)+1,1)&"."&roundup(column(a:f)/2,0)]

kuangben8

1. =CHOOSE(MOD(COLUMN()-1,2)+1,"Q.","A.")&INT((COLUMN()-1)/2)+1

复制代码