生成奇数序号，谢谢liulang0808、shiruiqiang、飞天篮球猪老师！

lhj323323 · 发表于 2024-3-8 07:28

本帖最后由 lhj323323 于 2024-3-9 07:45 编辑

老师：

上传的附件里
能生成序号123456

想改成序号13579（这是间隔1的示例，如果进一步改为间隔N，又该怎么转换）
脑袋转不过弯了，怎么也搞不定
请老师帮忙看看
先谢谢了

求助.rar (18.7 KB, 下载次数: 4)

快照3.png

liulang0808 · 发表于 2024-3-8 07:47

Sub test1() '生成序号1357911
  Dim Arr, i As Long, T As String

Sheet1.Activate
Arr = Range("a1").CurrentRegion.Offset(1).Value

Open ThisWorkbook.Path & "\test.txt" For Output As #1

For i = 1 To UBound(Arr) - 1

         T = T & "," & "J" & i * 2 - 1 & "=" & Arr(i, 1)
         Print #1, Mid(T, 2)
         T = vbNullString

Next
Close #1
End Sub

liulang0808 · 发表于 2024-3-8 07:47

求助 (40).zip (24.65 KB, 下载次数: 4)
不知道理解的对不对

shiruiqiang · 发表于 2024-3-8 07:49

for i=1 to 100
j=i*2-1

lhj323323 · 发表于 2024-3-8 08:28

liulang0808 发表于 2024-3-8 07:47
Sub test1() '生成序号1357911
Dim Arr, i As Long, T As String

唉，这数学全部还给老师了。

谢谢老师，测试正确！

lhj323323 · 发表于 2024-3-8 08:29

shiruiqiang 发表于 2024-3-8 07:49
for i=1 to 100
j=i*2-1

谢谢老师！

飞天篮球猪 · 发表于 2024-3-8 08:37

哥哥，等差数列通项式，网上搜索一下就有了。
起始值+(第n项-1)×公差

huarong7984 · 发表于 2024-3-8 09:03

本帖最后由 huarong7984 于 2024-3-8 10:32 编辑

所发示例，仅供参考

lhj323323 · 发表于 2024-3-8 12:26

飞天篮球猪发表于 2024-3-8 08:37
哥哥，等差数列通项式，网上搜索一下就有了。
起始值+(第n项-1)×公差

唉，反应不过来，年纪大了。
不好意思。

lhj323323 · 发表于 2024-3-9 07:42

飞天篮球猪发表于 2024-3-8 08:37
哥哥，等差数列通项式，网上搜索一下就有了。
起始值+(第n项-1)×公差

老师：

请看我的表达式，是否正确

如果我想展示为1、4、7、10、13、16
公差就是3

'起始值+(第n项-1)×公差
T = T & "," & "J" & 1 + (i - 1) * 3 & "=" & Arr(i, 1)

复制代码

		自动登录	找回密码
密码			免费注册

[已解决] 生成奇数序号，谢谢liulang0808、shiruiqiang、飞天篮球猪老师！

评分

评分

评分

评分