Tag: 复制

Excel VBA，如何从Column对象内复制单元格

我正在尝试使用“For Each Column”循环将粘贴内容从一个表格复制到另一个表格。 我蹒跚地正确引用列对象中的单元格。 或者至less这是我认为的问题。 为什么行表（“组合”）…给这个错误：对象不支持这个属性或方法 Sub CRangeCopy() Set ws = Sheets("Sheet1") ColNr = 1 For Each c In ws.UsedRange.Columns lastCellNr = c.Cells.Count c.Cells(2, lastCellNr).Copy Sheets("Sheet2").Cells(2, ColNr).Paste ' Object doesn't support ' this property or method ColNr = ColNr + 1 Next c End Sub 编辑： 我已经做了build议的更改，现在使用Range，下面的代码有时在debugging模式下工作，但不是当我作为整体运行时？ 任何想法为什么？ Sub CopyToNewSheet() Sheets.Add.Name = "Combo" Set ws […]

Excel公式在多列重复的情况下，find它们并在结果中更改值

那么，我不是一个高级用户，但我会尽量具体。 有谁知道如何做到这一点：我有一些值在列A和一些值在列B中。如果两行A，B中的值是重复的，我需要列C中的结果：B列的值为+1每一行都是重复的。 让我以一个例子来解释。 列A – 列B – 列C（首选结果） PD3221 ———- 2012-01-04 ——– N / A —–（因为A1，B1和A2，B2不重复） PD3221 ———- 2012-04-25 ——– N / A —–（因为A1，B1和A2，B2不重复） PD3484 ———- 2010-04-27 —- 2010-04-28（因为A3，B3和A4，B4是重复的） PD3484 ———- 2010-04-27 —- 2010-04-29（因为A3，B3和A4，B4是重复的） （因为A5，B5; A6，B6; A7，B7; A8，B8是重复的） （因为A5，B5; A6，B6; A7，B7; A8，B8是重复的） （因为A5，B5; A6，B6; A7，B7; A8，B8是重复的） （因为A5，B5; A6，B6; A7，B7; A8，B8是重复的） PD4880 ———- 2010-04-27 —– 2010-04-28（因为A9，B9和A10，B10是重复的） […]

Excel数据复制

我在工作表中有两列，如下面的列表。 我想要做的是拉第二列的值，但只有当相应的第一列值匹配我指定的值。 这我可以做一个Vlookup但是我也想能够指定第一列匹配数组的行号。 例如，如果我将值设置为'2'，行号设置为'2'，那么它会给我14的值，因为它与列1中的第一个值相匹配，并创build一个数组，然后给我该数组的第二行是14。 有任何想法吗？ 1 10 1 11 1 12 2 13 2 14 2 15 3 16 3 17 3 18

仅在第二个Excel工作表上显示某些数据

我有一个Excel电子表格，有一个“主视图”表和一个“高优先级”表。 在“主视图”表中有一列名为“优先级”的列。 在这一栏中，您可以有三个选项，低，中，高。 我想这样做的方式是，如果我有一个具有高优先级的行，我想在“高优先级”选项卡中自动显示整个行的详细信息。 这是一个数据外观的例子。 "Ticket Number" | "Description" | "Priority" 123 | Test case | Low 223 | Client Issue | High 345 | System Down | High 456 | Phone down | Low 我想自动转移到下一张表的数据是高优先级问题。 我尝试使用Vlookups和一个filter来做到这一点，但我遇到的问题是，如果我添加一个新的高优先级问题的'主视图'它不会在'高优先级'表中填充。 我有一个用户不熟悉编程，所以我试图避免在VBA中这样做 – 我有一个解决scheme，如果我们要这样做。 请让我知道是否有办法处理我想在Excel中，而不是VBA。

excelmacros将一个文件夹复制到另一个文件夹，用户input的文件夹名称

我试图通过Excelmacros将一个完整的文件夹复制到一个新的文件夹，但我需要用户每次input新的文件夹名称 这是我现在的代码复制到永久/静态文件夹 Sub Copy_Folder() Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = "C:\Users\hayekn\Desktop\AR Reports\0MENACA Working File\AR Working File\3- FINAL Country Files\1" '<< Change ToPath = "C:\Users\hayekn\Desktop\AR Reports\0MENACA Working File\AR Working File\Weekly Back" '<< Change Application.CutCopyMode = False If Right(FromPath, 1) = "\" Then FromPath = Left(FromPath, Len(FromPath) – 1) […]

将行作为variables复制一个数组

我是Excel VBA编程新手，我正在使用2010版本。 我想复制数组中列出的单元格的内容，所以我可以将它们粘贴到另一个工作表上。 列将保持不变，但我希望该行在哪里活动单元格。 代码链接到一个button。 当我用一个单元格整数昏暗的数组，这就像一个魅力。 我希望有一种方法可以使数组dynamic的行号基于活动单元格。 Dim x As Integer Dim myarray As Variant x = ActiveCell.Row myarray = Array("Ax", "Fx", "Ix", "Jx", "Kx", "Rx") With ThisWorkbook.Worksheets("HANDOVER") Cells(x, myarrray).Select Selection.Copy End With

将工作表复制到replace当前数据的其他工作簿中

我希望有人能帮助我。 我有两个工作簿。 Wb1 = FAC试用Wb2 = ROMAN 这两个工作簿中有许多工作表。 我想要发生的是Wb2中的数据，名为Format的工作表被复制到名为Format的Wb1工作表中。 Wb1中的工作表已经命名，并且将从Wb2每天更新。 Wb1工作表格式中的数据每次都会被覆盖。 我正在看，这将发生在点击一个命令button。 单击命令button时，Wb2将不会打开。 我已经find了一些代码，但每次运行代码时都会创build一个新的工作表，我不确定如何更改以适应我的需要。 预先感谢您的任何帮助，不胜感激

使用条件格式（高数据集）突出显示不相邻的副本

我们有一个在Excel中的产品号码列表按一定的顺序。 由于我不会涉及的原因，我们需要突出显示何时存在不相邻的副本。目前，我正在以条件格式使用此公式来完成这项工作。 =AND(COUNTIF($A$2:$A$82,$A2)>1,$A1<>$A2,$A2<>$A3) 除了在下面的例子中有重复副本的情况之外，这种方式大多运作良好，我们希望FO-1694被高亮显示，因为它们并不是全部相邻。 但是我们不希望NIS0257被突出显示，因为它们是。 目前 理想情况下，这是我们想看到的… 预期 我最初在1月30日提出了同样的问题（ 链接 ），我收到了似乎是条件格式公式的工作解决scheme =NOT(AND(A2=OFFSET(A2,COUNTIF($A2:$A$82,A2)-1,0),A2=OFFSET(A2,-(COUNTIF($A$2:$A2,A2)-1),0))) 虽然这个原始的答案似乎适用于一小部分数据（ 例如 ），但它不会像我将要处理的数据集那样在更大的数据集上运行（下面的图像是大数据集的问题）。 我已根据需要调整公式以适应更大的范围，因此您在大型数据集图片和文件中看到的条件格式公式 =NOT(AND(A2=OFFSET(A2,COUNTIF($A2:$A$5422,A2)-1,0),A2=OFFSET(A2,-(COUNTIF($A$2:$A2,A2)-1),0))) 箭头指向的单元格应该高亮显示 对于最后的图片，即使是范围的结尾，单元格仍然应该高亮显示，因为它们是空白的，我也需要在该范围内的所有空白单元格也被高亮显示。 具有较大数据集的完整文件可以使用此链接从我的保pipe箱帐户下载。

意外重新定义的VBAvariables – Dim Copy

我不小心声明了一个variables，它是： Dim copy 我很快意识到会导致我的代码问题。 对于当我试图将工作簿中的单元格复制到工作簿时，.CurrentRegion.Copy函数将不再起作用，并且每次键入代码行时，“复制”将被写为 ActiveWorkbook.Worksheets(1).Range("A1").CurrentRegion.copy 代替 ActiveWorkbook.Worksheets(1).Range("A1").CurrentRegion.Copy 'note the variation in caps 所以，就这样说，我删除了我的声明variables，再次尝试，但仍然以相同的结果结束。 我转移到同一个项目中的不同模块，同样的事情继续发生。 即使直到我试图在一个单独的Excel文件上重新input我的整个代码，“复制”function仍然不起作用，即使在我的商业实例化之前的情况下，它仍然工作得非常好。 如果任何人有关于如何解决这个问题的想法，你的回应将是最有帮助的。 谢谢。

将所有excel文件从一个位置复制到另一个位置

我已经写了下面的脚本，它在给定的位置创build一个文件夹（如果它不存在，它以工作簿中的单元格命名）。 昏暗的fso作为对象 Dim fldrname As String Dim fldrpath As String Dim sFileType As String Dim sSourcePath As String Dim Destination As String Set fso = CreateObject("scripting.filesystemobject") sSourcePath = "\\INSURANCE\IT\FileData\Computers\DIPS\" fldrname = Worksheets("Applications").Range("A2").Value fldrpath = "\\INSURANCE\IT\FileData\Computers\DIPS\DIP Archive\" & fldrname If Not fso.folderexists(fldrpath) Then fso.createfolder (fldrpath) End If End If 我现在试图将sSourcePath中的所有.xlsm文件复制到新创build的位置fldrpath＆\ fldrname，但所有尝试失败。 我还是相当新的VBA所以任何帮助，将不胜感激。 我听说.copyfile，但我不知道如何利用这个例子。 先谢谢你。