Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.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 “如何复制和粘贴区域”;";时间,其中n=已计数行数?_Excel_Vba_Loops_Repeat - Fatal编程技术网

Excel “如何复制和粘贴区域”;";时间,其中n=已计数行数?

Excel “如何复制和粘贴区域”;";时间,其中n=已计数行数?,excel,vba,loops,repeat,Excel,Vba,Loops,Repeat,我正在尝试创建一个宏,它完成三项主要任务: (1) 根据单元格中输入的值插入一定数量的行 (2) 统计步骤1之后现在存在的行数 (3) 获取此数字“n”(已计数行的数量),然后在另一张图纸中复制该图纸中的现有区域,并将其重复粘贴到右侧“n”次(因此,粘贴后,它将一列向右移动并再次粘贴,是否重复粘贴“n”次) 到目前为止,我已经想出了步骤1和步骤2。我将在下面粘贴我当前拥有的代码。我只是停留在第三步,我已经搜索了很多这个问题,但没有真正找到任何东西。我不擅长VBA,但我会尽可能多地学习。谢谢大家

我正在尝试创建一个宏,它完成三项主要任务:

(1) 根据单元格中输入的值插入一定数量的行

(2) 统计步骤1之后现在存在的行数

(3) 获取此数字“n”(已计数行的数量),然后在另一张图纸中复制该图纸中的现有区域,并将其重复粘贴到右侧“n”次(因此,粘贴后,它将一列向右移动并再次粘贴,是否重复粘贴“n”次)

到目前为止,我已经想出了步骤1和步骤2。我将在下面粘贴我当前拥有的代码。我只是停留在第三步,我已经搜索了很多这个问题,但没有真正找到任何东西。我不擅长VBA,但我会尽可能多地学习。谢谢大家

步骤1:

Dim myRow As Long, newRowCount As Long
    myRow = 4
    newRowCount = Range("D1") - 1
    With Rows(myRow)
        .Copy
        .Offset(1).Resize(newRowCount).Insert
    End With

    Dim SkuSheet As Range
    Set SkuSheet = Range("J1:Q50")
步骤2:

Dim last_row As Long
    last_row = Range("B4").CurrentRegion.Rows.Count - 3
MsgBox last_row
' the Message box was just to know that this part worked 

在步骤1中,您是否只需要按您所说的插入
newRowCount
(空)行,或者从
newRowCount
次复制
myRow
行?关于步骤2:是否需要从第4行开始的B:B列中的行数?步骤3:您需要将计数行(
n
)的
n
次粘贴到usedRange的右侧,但是“它将一列向右移动并再次粘贴,这“n”次”是什么意思?把那一列移到哪里?并且,如果只移动了一列,在哪里再次插入所述范围的“n”倍?你能编辑你的问题并放置两张图片吗?实际情况和要做的事情。