Question

我使用Excel从包含2个变量的基本公式生成数字。我有600个数字（特别是坐标），我需要从每个数字生成13个新数字（所以我每个X＆amp; Y需要总共8400个值/行）。由于公式需要每14行更改为一个新的绝对单元格，因此我很难想到如何使用VBA在Excel中完成此操作。

我目前的想法是：

添加行以适应新值。
使用重复的值模式填充列C和D.
创建一个循环，运行14行的公式然后重复，保持绝对值基于位置（？）。

不可否认，我不是VBA的专业人士，所以非常感谢任何有关如何完成这项任务的帮助。

请参阅下面的数据屏幕抓取示例。

Snippet of Data

我使用此代码为我的值获取了13个新行。

Sub AddRows()
  ScreenUpdating = False
  With ActiveSheet
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
  End With
  Dim AddRows As Integer: AddRows = 13
  Dim i As Integer: i = lastRow
  Do While i <> 1
    Rows(i & ":" & i + AddRows - 1).Insert
    i = i - 1
  Loop
  ScreenUpdating = True
End Sub

使用excel / vba生成多个解决方案

0 个答案: