Tag: 复制

如何查看两列并删除第二列中的重复项: 我想写一个代码，让我看看两个非常相似的列，并清除第二列中重复的单元格，如果它已经存在于第一列。我有一个工作的代码，但它删除了一些重复，并向上移动，但我希望他们留在原来的单元格。我基本上想要说“如果单元格存在于第1列和第2列，请清除第2列中的单元格”。我不确定这是否可能。这是我一直在使用的代码。任何帮助将不胜感激！ Sub CopyPasteHistorical() CopyPasteHistorical Macro Sheets("Sheet1").Select Columns("I:I").Select Selection.copy Sheets("Sheet2").Select Columns("D:D").Select ActiveSheet.Paste 'remove duplicates Columns("C:D").Select Dim duplicates As Range Set duplicates = Selection Selection.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub

将剪贴板粘贴到新的工作簿VBAmacros: 我试图循环浏览文件夹中的文件，从每个文件复制未知大小的数据，并将它们全部粘贴到一个新的工作簿中。我似乎无法得到剪贴板粘贴正确，因为它总是给我一个运行时错误9，下标超出范围。 Sub LoopThroughFiles() Dim StrFile As String StrFile = Dir("filepath") Dim wb As Excel.Workbook Dim itemized As Excel.Workbook Dim dump As Excel.Workbook Do While Len(StrFile) > 0 MsgBox StrFile Set dump = Workbooks.Open("dump.xlsx") Set wb = Workbooks.Open("StrFile") Set wb = ActiveWorkbook Worksheets("DATA2").Visible = True Worksheets("DATA2").Activate Application.Goto Reference:="R1C1:R98C1" Selection.EntireRow.Delete Range("A1").Select ActiveCell.CurrentRegion.Select Selection.Copy Application.Wait DateAdd("s", 1, […]

使用vba在单元格中编写公式: 我的基本公式是： =IF(COUNTIF($A:$A,$A2)=COUNTIFS($A:$A,$A2,$B:$B,$B2),"OK","NOT OK") 我用它来知道列A中是否有重复，并检查B中的值。 ID Age My formula 1 15 NOT OK 2 50 OK 2 50 OK 3 35 OK 1 15 NOT OK 1 16 NOT OK 现在我想用VBA写它，所以我录制一个macros，select单元格，按F2然后按Enter键。我得到： ActiveCell.FormulaR1C1 = _ "=IF(COUNTIF(C3,RC[-10])=COUNTIFS(C3,RC[-10],C12,RC[-1]),""PRODUIT"",""ARTICLE"")" 好的，它的工作。现在我想用一个新的列来使用这个公式： Id Age Age formula Money Money formula Value3 Value3 formula … 1 15 NOT OK 150 OK … […]

如何复制粘贴和连接Excel列与VBScript？: 我正在玩vbscript，如何让我的生活更轻松。现在我想运行一个打开excel文件的脚本。将C列（未知行长度）复制到B列，并将其连接到某些东西。例： ——————- ||| A | B | C | ——————- |1|ONE | ANY | 11 | |2|TWO | ANY | 42 | |3|FOUR| ANY | 96 | |4|SIX | ANY | 42 | ——————- 为此： ||| A | B | C | ——————- |1|ONE |*11* | 11 | |2|TWO |*42* | 42 […]

将从打开的工作簿复制的工作表粘贴到现有的非打开工作簿中: 我试图从已打开的工作簿中复制“Sheet1”，标记为“source.xlsm”，并粘贴在运行时未打开的最后一张工作簿的后面，标记为“target.xlsx”。我有下面的代码，似乎整个“C：\”目录什么都不做。甚至有可能把一个目录？如果没有打开Target.xlsx，我无法find这样做的方法。 ActiveSheet.Select ActiveSheet.Copy After:=Workbooks("C:\Target.xlsx").Sheets("FirstSheet")

如何在Excel中合并多个列需要保持不整合的重复项: 我试图通过产品商店进行库存计数，但有几个零件编号被列出两次（A列）。当我尝试合并这些时，我收到错误“无数据统一”，我认为这是由列BF引起的（如果列A的值相同，将始终是相同的）。我想将列AF相同的行合并成一个单行，列G代表所有重复行的列F的小计。对应电子表格的屏幕截图我search了这个网站，虽然也有类似的问题，但是没有一个答案适用于我的确切数据。我不能使用数据透视表，因为这些部分存储在太多的地方，导致无法读取（见第二张附图）。混淆数据透视表的屏幕截图

Excel VBA – 复制并粘贴部分格式: 如何从一个单元格复制和粘贴单元格到另一个单元格，并在单元格内的某些文本上使用VBA在Excel中进行格式化？例如，我将如何复制“你好世界 ”，所以它确切地出现在粘贴细胞的方式？谢谢！

Excelmacros从一个表/数组中select值到另一个: 我有一个Excel表中的以下“表”。我想做以下的改变：每当有一个“x”的时候，我想在另一张纸上报告第一行的相应值和第一列的相应值： “原始表” a1 a2 a3 a7 a8 a9 main main main main main main u1 XXX u2 XX u3 u4 u5 X u6 X “转换表”： u1 a1 u1 a2 u1 a3 u2 a2 u2 a3 u5 a1 u6 a3 你能告诉我什么是Excelmacros将这样做？先谢谢你。

VBA复制和查找: 我在网上search，还没有设法find任何东西，以涵盖我所需要的。希望这是有道理的。我需要复制当前的单元格，selectsheet2，然后find该表单中的string。我相信这是一个简单的代码，我已经find了可以find文本的地方，但只有当我把它直接放到代码中。我只是需要它使用当前单元格。 Sub Find() Selection.Copy Sheets("Sheet2").Select Range("A1").Select Cells.Find(What:="MYDATA", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate End Sub 感谢所有的帮助。谢谢。

如何复制单元格的值并粘贴在以前的单元格下: 我想要一个macros从一个特定的单元格复制数据，并将其复制到另一个工作表上的单元格，但我希望它是一个连续列表。我的意思是，将第一个单元格复制到A2中，然后将下一个单元格复制到A3中，依此类推。这是我到目前为止的代码，它可以复制到单元格A2中，但它会删除以前的数据。 Option Explicit Sub Copy_Data() Worksheets("PremakeResults").Range("B1").Copy Worksheets("SavedResults").Range("A2") End Sub 我有一种感觉，这是一个相当简单的macros观，但我一直没有在互联网上寻找正确的东西。任何帮助，将不胜感激！编辑我只是试过这个代码 Sub Copy_Data() Worksheets("PremakeResults").Range("B1").Copy Worksheets("SavedResults").Range("A" & Worksheets("SavedResults").Cells(Worksheets("SavedResults").‌Rows.Count, "A").End(Xlup).Row) End Sub 虽然这将复制到指定的页面，它仍然会擦除第一个条目。