输入表格,Excel,VBA复制输入并粘贴到另一个工作表中

贾姆·纳鲁斯

我试图减少使用,.select.paste尝试执行复制和粘贴。我知道使用循环更容易。我正在尝试从工作表“条目”中复制一系列单元格,并将其粘贴到名为“输入”的工作表中。我遇到的问题是我想将数据粘贴到连续的单元格中。

这是我到目前为止的内容:

Dim i as Byte, y as Byte, x as integer 

For i = 3 to 3 
    For y = 3 to 17
      x = x +1 

      Sheets("input").Cells(29,x).value = Sheets("Entry").Cells(y,i).value

     Next y 
Next i

复制的单元格之间有一个空单元格,如下所示:

复制的输入单元格

当我将它们粘贴到“输入”选项卡上所需的范围时,将其粘贴如下:

输入粘贴

我正在尝试获取它,以便在粘贴时将其连续粘贴到“输入”工作表中,如下所示:

连续细胞

cjohnson221

是的,您是正确的,通常最好避免在VBA代码中使用.Select和.Paste,因为它们需要花费较长的时间来处理,通常是不必要的。在您的情况下,使用for循环会更容易,该循环遍历一系列单元格并将它们复制到另一张纸上。这使您可以检查单元格是否包含任何东西,如果它不包含任何东西,则可以跳过它。这是一个例子:

Sub CopyCells()

    Dim rng As Range, cell As Range, copyToCell As Range

    Set rng = ThisWorkbook.Sheets("Entry").Range("A1:A10") 'This is the range you want to copy from
    Set copyToCell = ThisWorkbook.Sheets("inputs").Range("A1") 'This is the first cell in the range you want to copy to

    For Each cell In rng
        If cell.Value <> "" Then 'Only copy from cells that are not blank
            copyToCell.Value = cell.Value
            Set copyToCell = copyToCell.Offset(0, 1) 'Move the copy to cell over by one column (or by row if you prefer)
        End If
    Next cell

End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如果值匹配,如何复制并粘贴到另一个工作表-Excel VBA

如何过滤表格并将值粘贴到 Excel VBA 中的另一个工作表中

VBA 复制范围值并粘贴到另一个工作表中

根据用户输入从另一个工作表复制一行并粘贴到另一个工作表上

Excel:创建一个宏以将活动选择复制并粘贴到另一个工作表中

Excel VBA将特定的单元格复制并粘贴到另一个工作表

Excel VBA复制多个范围并粘贴到另一个工作表,没有空行

通过 VBA 将值复制并粘贴到另一个工作表

将值复制并粘贴到另一个工作表excel宏

宏VBA根据标题复制列并将其粘贴到另一个工作表中

excel vba宏:将特定的列复制并粘贴到另一个工作簿中

Excel-复制选定的单元格并粘贴到另一个工作表中列的末尾

宏可将行复制并粘贴到另一个工作表中,而无需粘贴到页面下

复制特定单元格并粘贴到另一个工作表中

从一个工作表复制并粘贴到另一个工作表

Google表格+ Apps脚本,从一个工作表复制/粘贴到另一个工作表,但粘贴到特定列(B)中的第一个空单元格中

VBA Excel将多封电子邮件剪切/粘贴到另一个工作表中

将单元格粘贴到VBA中的另一个工作表

VBA循环将值粘贴到另一个工作表中

清除 VBA 中另一个工作表中的过滤器后,将数据复制并粘贴到新工作表中

将多个工作簿中的数据复制并粘贴到另一个工作簿中的工作表中

VBA从一个工作簿复制并粘贴到另一个

遍历工作簿并将值复制并粘贴到另一个工作簿(VBA、Excel)

VBA-如何将列中的最后一个值复制并粘贴到另一个工作表

VBA Excel-在列中找到一个值,粘贴到另一个工作表

在VBA Excel中将工作表的选中项目粘贴到另一个工作表的彩色单元格

从所有行复制一个工作表并粘贴到另一行中的另一行(Excel vba)

如何将两个单独的表复制并粘贴到VBA中另一个表的末尾?

复制工作簿并粘贴到另一个工作簿 MS Excel 下方