奥古斯丁也玩hip-pop 2022-02-13 15:07 采纳率: 100%
浏览 27
已结题

关于excel 宏VBA编程中,用程序生成数据时遇到的一个问题


Sub makenum()
Dim maxnum As Long
Dim a As Long
a = 1
maxnum = 50
For i = 2 To maxnum
For j = i To maxnum
Dim juge As Boolean
juge = False
For k = 2 To i
If i Mod k = 0 And j Mod k = 0 Then juge = True
If juge = False And i + j <= maxnum Then
Range("A#").Value = i
Range("B#").Value = j
Range("C#").Value = i + j
Range("D#").Value = i * j * (i + j)
a = a + 1
End If
Next
Next
Next
End Sub

如上是我的代码段,没学过VBA语法不太懂,我的愿望是#代替的地方用a这个变量控制来使每次写入数据时都是这一列的顶格。

  • 写回答

1条回答 默认 最新

  • jianyue--- 2022-02-13 18:17
    关注

    Range("A#").Value = i-------cells(a,1).value
    Range("B#").Value = i-------cells(a,2).value
    cells可以接受两个变量 作为行列的参数

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 2月21日
  • 已采纳回答 2月13日
  • 创建了问题 2月13日

悬赏问题

  • ¥15 打开软件提示错误:failed to get wglChoosePixelFormatARB
  • ¥30 电脑误删了手机的照片怎么恢复?
  • ¥15 (标签-python|关键词-char)
  • ¥15 python+selenium,在新增时弹出了一个输入框
  • ¥15 苹果验机结果的api接口哪里有??单次调用1毛钱及以下。
  • ¥20 学生成绩管理系统设计
  • ¥15 来一个cc穿盾脚本开发者
  • ¥15 CST2023安装报错
  • ¥15 使用diffusionbert生成文字 结果是PAD和UNK怎么办
  • ¥15 有人懂怎么做大模型的客服系统吗?卡住了卡住了