帮忙辛苦写一下分组代码

0wchz

把sheet1，a列15一组，依次输出

0wchz

Sub 输入_()
With Sheets("Sheet1")
.Columns("a:c").NumberFormat = "@"

For i = 1 To 85
.Cells(i, 1) = i & "+" & 1
Next i
For i = 1 To 105
.Cells(i, 2) = i & "+" & 2
Next i
End With
End Sub

Sub 输出_()
''要求把a列15一组，输出为
'a = "1+1,2+1,3+1,...,15+1"
'a = "16+1,17+1,,,30+1"
'a = "31+1,32+1,,45+1"
'a = "46+1,47+1,,,,60+1"
'a = "61+1,62+1,,,,,75+1"
'a = "76+1,77+1,78+1,79+1,80+1,81+1,82+1,83+1,84+1,85+1"
Close
Open "e:\输出.txt" For Append As 2

Close #2
End Sub

mmwwdd

mmwwdd

清风竹-

0wchz 发表于 2023-2-19 00:06
Sub 输入_()
With Sheets("Sheet1")
.Columns("a:c").NumberFormat = "@"

请看附件。