Tag: 复制粘贴

从一个单元格查找值，从靠近该单元格的单元格中复制值并将其粘贴到另一个表单

我有两张不同的值。 我需要从sheet2中的一个cell.sheet1中find一个值，并将nextcell_in_the_same_row.sheet1中的值复制到nextcell_in_the_same_row.sheet2中。 让我们来看看下面这个例子是非常困难的。 例如之前 first sheet: AB 1 aaa 123 2 bbb 456 3 ccc 789 4 ddd 122 second sheet: AB 1 aaa 2 ada 3 cca 4 ccc 后 first sheet: AB 1 aaa 123 2 bbb 456 3 ccc 789 4 ddd 122 second sheet: AB 1 aaa *need to find value […]

简单的方法来复制公式扩展源行1？

是否有复制公式的简单方法（请参阅“我想要的”，在这种情况下，简单地=B4 =B5 =B6 ）将源行增加1而不是使用复制行的Excel标准（请参阅“我得到的“，在这种情况下=B4 =B6 =B8 ）？ 公式被复制的距离模式总是相同的（在这个例子中总是跳过一个单元格）。 源单元格/行中没有偏移量。

PasteSpecial只有值

我想复制粘贴到目标工作表的单元格范围，但只有他们的价值观，而不是格式。 不幸的是，我的代码也粘贴了格式。 我正在为此提供代码行。 （我知道如何粘贴特殊值，但是我想，如果可能的话，将这种方法应用于这种复制粘贴方法。通常，我使用不同的复制粘贴方法，为此我知道如何粘贴特殊的，但为此时间我想保持macros的长度尽可能小）。 ws1.Range("C2:C" & lastrow2).Copy ws2.Range("A2")

Excel – find一个值并复制到不同的工作表中

我需要一些帮助，我正在努力为一本商标书做一个公式。 我有一本工作手册，上面有一张标有“硕士”的表格，其中包含A2列的学生唯一参考号，B2 / C2以及他们在D2，E2，F2和G2列中学习的四门科目。 然后，我也为每个单独的主题单独的表。 我想查一下母表上的科目（在四列中），如果“math”是一个学生需要在这些列中的一个，我想相应的学生名称和该行的引用被复制并粘贴到“math”表中，以便可以input关于该科目/学生和class级的进一步信息。 我已经尝试过使用IF和MATCH公式，但是它似乎变得相当复杂，因为我有超过400名学生，每个学生有四个科目，科目可以出现在四个科目列中的任何一个。 有什么build议么？ TIA！

Excel将高亮显示/黄色的表格1和2中的所有值复制到表格3

我有一个Excel工作簿3张，前两个包含大量的数据，第三个是空白的。 我想要创build一个macros，将所有高亮/黄色单元格从表格1和2中复制并粘贴到表格3中。 我有一些代码在一分钟的macros只是复制工作表1到工作表3，但它复制一切即使我已经使用If .Interior.ColorIndex Sub Yellow() Dim LR As Long, i As Long, j As Long j = 1 LR = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To LR With Worksheets("Sheet1").Range("A1:CF200" & i) If .Interior.ColorIndex Like 27 Or 12 Or 36 Or 40 Or 44 Then .Copy Destination:=Worksheets("Sheet3").Range("J" & j) j = j + […]

C＃没有find从Excel复制的string中的空间

帮帮我！ 我有一个Excel中的logging列表，我正在复制/粘贴到一个ASP.NET网页。 从那里，C＃代码parsinglogging。 以下代码适用于其中一个名称，但不适用于其他名称。 但是，如果我用复制空间复制/replaceExcel中的空白空间，或者如果我实际上退格并用键盘input名称到网页，它确实工作。 就好像Excel在这个logging的空间里有一些奇怪的鬼字符。 我已经粘贴了Notepad ++并显示了所有的字符，在这里我没有看到任何特殊的东西，这些在logging中是不同的。 这个工作和检测的空间： Carolyn Bentivegna这一个不： Allan D. Blake if (fullName.IndexOf(" ") > -1)

如何使用VBA在Excel工作表中的现有形状后面粘贴形状？

我想复制一个形状并粘贴一张已经包含一个或多个形状的表单。 我尝试使用以下简单的代码： myShape.Select Selection.Copy ActiveWorkbook.Sheets(mySheet).Paste 但它将其粘贴在表单中现有的形状上面… 有没有解决scheme来检测现有形状的结束或直接粘贴？ 谢谢

CRTL + Tilde然后复制粘贴“爆炸”公式到excel中

我想使用Ctrl + 〜查看电子表格中的公式。 有没有办法将这些“爆炸”公式复制到“爆炸”视图中的另一个Excel表单上？

从一张纸复印范围根据另一张纸上的单元格值粘贴同一张纸上的部分范围

现在我已经创build了一个代码，可以将一个范围内的值复制到另一个范围内（基于另一个表单的值）。 但是因为这个值可以是十二个值中的一个，所以被复制和粘贴的范围变小。 由于我不擅长VBA，因此我在Excel中创build了数十个复制范围和几十个粘贴范围，以便通过VBA处理ElseIf语句来复制和粘贴，具体取决于单元格值在另一个表单中。 我很好奇，有没有办法让我的代码更加优化，并在我的工作簿有更less的命名范围？ 任何帮助，将不胜感激，这里是我的代码下面粘贴（复制和粘贴的每个命名范围只是一个较less的列，由于什么select可以在第一张表）： SubTest() If ws0.Range("D6") = "BUD" Then ws1.Range("CopyFormulasFT").Select Selection.Copy ws1.Range("PasteFormulasFT").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=True, Transpose:=False ElseIf ws0.Range("D6") = "F01" Then ws1.Range("CopyFormulasFTOneEleven").Select Selection.Copy ws1.Range("PasteFormulasFTOneEleven").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=True, Transpose:=False ElseIf ws0.Range("D6") = "F02" Then ws1.Range("CopyFormulasFTTwoTen").Select Selection.Copy ws1.Range("PasteFormulasFTTwoTen").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=True, Transpose:=False ElseIf ws0.Range("D6") = "F03" Then ws1.Range("CopyFormulasFTThreeNine").Select Selection.Copy […]

将复制粘贴的VBAmacros逐行更改为批量复制粘贴

我目前有一个VBmacros，将从一个表复制到另一个值。 然而，目前VB的编写方式是逐行执行，而且运行速度相当慢，因为它经历了几千行。 我想知道如何将最好的改变我的VB做一个批量复制粘贴，以减less等待时间。 代码是： Sub copypaste_settlement_rows() Dim LastRow As Long Application.ScreenUpdating = False Sheets("Settlement Template").Select 'find last row in column A LastRow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To LastRow Cells(x, 1).Resize(1, 42).Copy Sheets("PIVOT DATA").Select NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(NextRow, 1).Select Selection.PasteSpecial Paste:=xlPasteValues Sheets("Settlement Template").Select Next x Sheets(">> START HERE <<").Select Application.CutCopyMode […]