Tag: 复制粘贴

在for-each循环中复制dynamic范围

为了完成这个任务，我花了几个星期的时间试图拼凑出一个完整的VBA，以完成这个任务，但现在我正在向你们所有人寻求答案。 我试图复制一个范围从ws2，列A：K的行开始与值匹配我在ws1中的值我到ws1中的价值我开始的行。 被复制的标准是1和0。 这基本上是一个美化的v-lookup粘贴dynamic范围。 我想出了循环机制，现在我只需要帮助编写复制选定单元格的代码。 以下是我到目前为止： For Each i In ws1.Range("A4:A26") For Each c In ws2.Range("A8:A28") If i.Cells.Value <> c.Cells.Value Then 'select columns A:K in the row with the value c in ws2 'open ws1 'paste selection to[starting at] column D in ws1 Exit For End If Next c Next i

自动筛选，然后复制和粘贴范围

我在下面写了一个代码。 意图是自动过滤列K与条件，复制数据，并粘贴在同一页上的工作表底部，正好在最后一行下面。 我没有得到任何错误，但代码不按预期工作。 它可以自动过滤和复制，但不会将数据粘贴到最后一行。 我可以请一些帮助。 Sub Depreciation_to_Zero() With Sheets("Restaurant") .AutoFilterMode = False With .Range("k1", .Range("k" & .Rows.Count).End(xlUp)) .AutoFilter Field:=1, Criteria1:="*HotDog*" On Error Resume Next .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Row.Select.PasteSpecial xlPasteValues On Error GoTo 0 End With .AutoFilterMode = False End With MsgBox ("Complete") End Sub

我得到运行时错误9

我正在制作哪个表有变化的表需要被复制到另一个表，需要同步数据传输槽表，如果我们填写一个表单数据需要传输到所有表单。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("C4:E8") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Worksheets("sheet1").Range("D4:D8").Copy _ Destination:=Worksheets("sheet2").Range("D4:D8") 'MsgBox "Cell " & Target.Address & " has changed." Just for code testing don't look at it End If End Sub

跳过非空单元格以粘贴特殊数据

我只想在范围（a3：M3）为空的情况下，将工作表“SL”中的范围（a3：M3）中的数据复制到工作表“EL”中的范围（a3：m3） 否则将所选数据复制到下一行（a4：m4）。 下面是我试图解决的代码..但它不工作… PLZ的帮助 Range("C9:G10").Select Selection.Copy Sheets("EL").Select For n = 1 To n = 100 If Cells(n, 2).Value <> "" Then Cells(n + 1, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next n

调整模块只粘贴值，而不是公式

有人可以帮助我吗？ 我运行下面的模块，它工作正常，但它粘贴单元格（公式）的内容，而不是值。 我知道这是一个特殊的粘贴价值，但不知道在哪里调整。 此外，我想在复制跨越A：K的variables表中的行，然后粘贴到标识表。 对不起，如果不清楚，不知道为什么代码显示下面的搞笑。 从子开始： Sub armine_profitTEST() Dim r As Long, endRow As Long, pasteRowIndex As Long endRow = 500 ' of course it's best to retrieve the last used row number via a function pasteRowIndex = 5 For r = 1 To endRow 'Loop through sheet1 and search for your criteria If Cells(r, […]

VBA代码 – 保留格式化数据复制到不同的工作表

作为Excel中的VBA的新用户，我正在尝试完成以下操作： 1）检查一个名为“索引”的工作表中的一列中的多行，作为条件（我的条件是在J列的单元格中查找字母Y） 2）将满足条件的每行中的选定列复制到VBA代码中编程的另一个表格，例如“Sheet2” 3）保留被复制的单元格的格式，特别是公式和粗体字体。 我之前在VBA代码中问过一个问题，将符合条件的行中的选定列复制到另一个表中 ，并被ATl LED友好地给出以下代码，它工作并复制值而不是格式（我忘了在我的问题中包括这个） 我试验了代码并调整了IF语句中的.FormulaR1C1值。 公式被复制，并在工作表复制，即工作表2，但我不能让格式工作。 我错过了什么？ Sub try3() Dim i, x As Long Dim Y as String Dim ws1 As Worksheet: Set ws1 = ActiveWorkbook.Sheets("Index") Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Sheet2") x = 5 Y = "Y" For i = 2 To 500: If ws1.Cells(i, 10) = Y Then […]

Visual Basic-Excel仅将一些列复制到其他工作表

有什么办法可以点击并复制一些列的某些值到其他工作表。 这张图片将会解释更多： 这是我的代码，但它有一些错误，我不知道为什么： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("SheetB").Select ' Find the last row of data FinalRow = Cells(Rows.Count, 1).End(xlUp).Row ' Loop through each row For x = 1 To FinalRow ' Decide if to copy based on column A in sheetB ThisValue = Cells(x, 1).Value If ThisValue = Target.Value Then Cells(x, 1).Resize(1, 33).Copy […]

我怎样才能让我的代码更快运行？ 将单元格从一个表格复制到另一个

我已经创build了这个代码，它将从Sheet1中复制所有值 – 从A2单元格开始到Sheet2中列1的第一个空行。 如果需要复制更多的单元格，则会运行很长时间。 有没有可能让它跑得更快？ 谢谢 Sub CopyCells() Dim CopyRow As Long CopyRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row 'find last first empty cell in destination sheet 'Sheets("Sheet1").Range("A2").Copy Destination:=Sheets("Sheet2").Range("A" & CopyRow + 1) Call turn_on_off(False) For I = 2 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Sheet1").Range("A" & I).Copy Destination:=Sheets("Sheet2").Range("A" & CopyRow + I – 1) Next I Call turn_on_off(True) End Sub […]

只复制可见的单元格

我试图复制可见的单元格使用我的filter后，在同一本书中的另一张表，但我不知道这个代码。 现在看起来如何： Sub Button1_Click() Dim i As Integer Dim VisRan As Range VisRan = Sheets(1).Range("a39:bm29684").SpecialCells(xlCellTypeVisible) Visran.Copy Sheets(2).Cells(1, 1).Select Selection.Paste 但它不起作用。 有什么问题？ Thx提前

根据其他单元格值复制/粘贴n次

我已经跑到墙上了。 尽pipeSO这样的post与Kioskea上的post非常相似，但是我根本无法在过滤单元格和复制的基础上将我的脑海中的点连接起来。 这里是数据表 – 简化 – 我正在与： ABCDEFGH R1 Name Num Status #Orig #InPro #Act #Rem #RemStatus R2 ABC 032 Complete 22 0 11 11 Purged R3 LMN 035 In Prog 25 21 4 21 Pending Scan R4 XYZ 039 Not Act 16 16 0 16 Not Active 这描述了纸盒文件的状态及其处置： D列是计划扫描的盒子数量 列E是用于扫描的盒子的数量 F栏是实际扫描的盒子数量 G和H列可以有三种含义： 如果状态为“未激活”，则列G和H匹配，不需要执行任何操作 如果状态为进行中，则假定列G中的数字是等待扫描的盒子的数量（简单地，原来的减去实际的） […]