Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 重复两个变量_Excel_Vba_Excel 2010 - Fatal编程技术网

Excel 重复两个变量

Excel 重复两个变量,excel,vba,excel-2010,Excel,Vba,Excel 2010,我每个ID都有一个,例如,只有一个X和一个Y,但我希望每个ID重复十次,旁边有相应的数字 我在VBA方面的经验非常有限,但这个问题似乎只能通过VBA来解决 VBA代码是什么 如果我理解正确,您只需将文件中的每一行复制10次即可 试试这个: Sub Macro1() Dim i As Integer Dim lastRow As Integer Dim row As Integer With ActiveSheet lastRow = .Cells(.Rows.Count, "A").End(

我每个ID都有一个,例如,只有一个X和一个Y,但我希望每个ID重复十次,旁边有相应的数字

我在VBA方面的经验非常有限,但这个问题似乎只能通过VBA来解决


VBA代码是什么

如果我理解正确,您只需将文件中的每一行复制10次即可

试试这个:

Sub Macro1()

Dim i As Integer
Dim lastRow As Integer
Dim row As Integer

With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).row
End With

Range("A1").Activate

For row = 1 To lastRow
    For i = 1 To 9
        Rows(ActiveCell.row).Select
        Selection.Copy
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(1, 0).Activate
    Next i
    ActiveCell.Offset(1, 0).Activate
Next row

End Sub

恐怕你的问题很难理解。你能展示你想要的输入和输出吗?但这似乎是一个VBA可以解决的问题,只有我非常怀疑是否尝试使用自动填充?我建议结束这个问题:它太宽泛了,听起来更像是一个代码编写服务/在线教程的请求。谢谢你的理解。向你问好,是的。这就是我需要的。非常感谢。