Tag: 粘贴

VBA复制并粘贴到一个基于date的单元格范围（逻辑VBA代码）: 我有一个表格，在某些会计年度里有几个月是以月份表示的。每个月都有值运行查询和每月添加。我希望vba能够根据月份和会计年度将匹配索引公式（我已经拥有）复制并粘贴到一列单元格中。例如，对于2015年4月，我希望代码与其他几个月不同，只需将公式粘贴到该列中即可。

程序正在检查错误工作表中的下一个可用行: 我已经编写了一个代码，用于从一堆Excel工作簿（从专用txt文件中读取path）复制数据到主工作表。我现在遇到的问题是，不是检查并粘贴MASTER工作簿中的下一个可用行，而是检查源工作簿中的下一个可用行，并粘贴主工作簿中的对应行号。这是我的atm。请看一看 Open PathFile For Input As #1 Do Until EOF(1) Line Input #1, SourceFile Set Source = Workbooks.Open(SourceFile) With Source.Sheets("Action Tracker") lastRow = .Range("F" & .Rows.Count).End(xlUp).Row For i = 10 To lastRow If Len(Trim(.Range("F" & i).Value)) <> 0 Then If CopyRange Is Nothing Then Set CopyRange = .Rows(i) Else Set CopyRange = […]

将表格行复制到具有多个条件的新表中 – 仅复制第一行？: 我有一个项目，我希望你们中的一些人能帮我解决问题。这是独家新闻：我有一个包含大量数据的表的Excel工作表。我需要复制基于多个条件的数据行，并将其粘贴到另一个工作表中的另一个表中。第二个表应该扩大，以适应无数的信息行。就像这样（假设这些是Excel中的表格）： | A | B | C | D | |1 |Name^ |Fruit^ |Amount^ |Strata^ | |2 |Mary |Apples |300 |Sand | |3 |Dean |Oranges |200 |Gravel | |4 |Mary |Bananas |300 |Sand | |5 |Sam |Oranges |200 |Loam | |6 |Mary |Oranges |200 |Sand | |7 |Dean |Apples |500 […]

dynamicmnacro比较两个表，并添加行，如果没有在一个表上find或更新信息，如果find行，但一些信息不同: 我被困在写这个Excelmacros，可以好心的使用一些帮助。我正在尝试创build一个dynamicmacros，它将比较两个不同工作表中的两个表，如果不同，则会更新行的信息，如果不存在，则将新行复制到新表中。两个表都包含相同的信息列，并且每个数据行都有唯一的产品代码。一旦按下button，如果在新表上找不到表1中行的产品代码，那么该行将被复制。如果在新表中find产品代码，但列中的其他信息不同，则将在新表上更新其他信息。如果find产品代码并且其他信息相同，则不会复制该行。我需要在table1中尽可能多的行。注意：我认为VLOOKUP可能是成功编写这个macros的路线…下面是我迄今为止的尝试得到这个工作。 Sub Copy_Attempt() Application.ScreenUpdating = False Dim s1 As Worksheet, s2 As Worksheet Set s1 = Sheets("Raw Data") Set s2 = Sheets("BAS Linkage Master") Dim i As Integer Dim j As Integer Dim Proj_ID As String Dim Lookup_Range As Range Dim Linkage_Lookup_Range As Range Dim Raw_Percent_Complete As String […]

Excel VBA：使用适当的单元格数据types粘贴剪贴板数据（外部源）: 我从外部源（其他应用程序，如sqlClients：Heidi，MS SQL Management Studio，内部工具等）复制表格数据（制表符分隔），并将它们粘贴到Excel工作表中以进行扩展分析。我一直在努力制作一个macros来粘贴正确格式的特定列，而不是改变数据显示方式的Generaltypes。起初，我尝试设置特定的列到适当的数据types，然后才使用paste special粘贴值： ActiveSheet.Range("B:D,X:X").NumberFormat = "@" ActiveSheet.Range("A1").PasteSpecial _ Paste:=xlPasteValues _ , Operation:=xlNone _ , SkipBlanks:=False _ , Transpose:=False 可悲的是，它给Run Time Error '1004' PasteSpecial method of Range class failed ，我无法解决。接下来我尝试了TextToColumns ： ActiveSheet.Range("A1").Select ActiveSheet.Paste For Each cell In Selection.Cells If cell <> "" Then cell.TextToColumns _ Destination:=cell _ , DataType:=xlDelimited _ , […]

在EXCEL中使用PASTE（Java和org.apache.poi）: JAVA + POI >是否有办法无法/阻止系统/ Excel的PASTE命令。或者在input手动input时给出错误并拒绝。我用Java 8和org.apache.poi构build这个Excel文件（也许另一个库将工作）。我实施了各种限制和validation： constraint =validationHelper.createExplicitListConstraint(new String[]{"0","1","2","3","4","5","6","7","8","9"}); addressList = new CellRangeAddressList(0,999,0,0); dataValidation = validationHelper.createValidation(constraint, addressList); dataValidation.setShowErrorBox(true); sheet.addValidationData(dataValidation); 我已经实现了各种LOCKING： sheet.lockObjects(true); sheet.lockDeleteColumns(true); sheet.lockDeleteRows(true); sheet.lockFormatCells(true); sheet.lockFormatColumns(true); sheet.lockFormatRows(true); sheet.lockInsertColumns(true); sheet.lockInsertRows(true); sheet.enableLocking(); workbook.lockStructure(); 但是，仍然可以用内存中的粘贴粘贴任何你想要的单元格。即使当我locking下拉限制： Name name = workbook.createName(); name.setNameName("ValidationRange"); String reference = addressList.getCellRangeAddress(0).formatAsString("SHEET", true); name.setRefersToFormula(reference); 在我的JavaFX应用程序中，作为一个保存通信工具，帮助将是一个好而安全的Excel程序= ^）

如何使用VBA在Excel中复制连续的工作表: 我search了关于如何将工作表复制到另一个工作簿的多篇文章。在所有情况下，表单名称是已知的。如果我在当前工作表中，如何创build一个将当前工作表和下两个连续工作表复制到新工作簿的vba。工作表的名字每周都会更改，所以程序只需要select当前的工作表和下两页。感谢您的帮助。

剪切并粘贴特殊字体数据，将粘贴到Excel中不同列中的其他数据的数据alignment: 寻找一个可以将数据复制到列A中的数据的macros 我有我的原始数据：原始数据然后我有一个macros，从斜体 B到C复制所有的数据 Sub copy_Italic() 'Narrations in Italics Copy Dim LastRow As Long, x As Long, y As Long, txt1 As String, txt As String LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For x = 2 To LastRow txt1 = "" txt = Cells(x, 2) If txt <> "" Then For y = Len(txt) To 1 […]

将基于多个条件的select复制粘贴到VBA中的另一个工作表中: 我对VBA很新，并且使用macros录制器来创buildmacros。 macroslogging器只能带我到目前为止，我能够完成我所需要做的2/3。我试图创build一个macros，我需要在三列中满足条件，复制满足条件的行，并将其粘贴到工作簿上。标准是“公开”“关键”和“date”。这是棘手的部分，date或者需要大于特定的date，通过用户input或在第三个工作表中引用单元格。有几千行，大约19列，所有的代码，我试图导致崩溃的Excel。获取前两个标准的代码示例： Sheets("Sheet1").Select ActiveSheet.ListObjects("Table_owssvr").Range.AutoFilter Field:=12, _ Criteria1:="Open" ActiveSheet.ListObjects("Table_owssvr").Range.AutoFilter Field:=16, _ Criteria1:="Critical" Range("Table_owssvr").Select Range("Q83").Activate Selection.Copy Sheets("Sheet2").Select Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select ActiveSheet.Paste 一个 – – – – – – – – – – – – – – – – – – – – – – – – – —————-乙——————————— ————————– C打开———————- – […]

VBA从分开的范围复制粘贴值并粘贴在相同的工作表，相同的行偏移列（对多个表重复）: 我打算做一个Case声明，但是我认为在这种情况下没什么意义，我是一个VBA n00b，因为这个工作簿将保持相当的静态我不介意采取非最优方法并loggingmacros的复制和粘贴，但我想在这之前，我会问在这里。我有1个工作簿中的6个工作表。 Sheet1：复制BA17：BI31，复制BA48：BI50，复制BA67：BI81，复制BA98：BI100，复制BA117：BI131，复制BA148：BI150，复制BA167：BI181，复制BA198：BI200，复制BA215：BI215，复制BA230： BI230，拷贝BA246：BI260，拷贝BA275：BI277 然后将上述副本粘贴到相同的行中，但是在同一张表的AE：AM列中（简单偏移）。如果有人能把我引向正确的方向，我可以重复这个解决scheme，为其他5张，我必须做同样的想法，但不同的行和列。任何帮助将不胜感激，谢谢！ Sub CopyPasteOffetColumns() Range("BA17:BI31").Select Application.CutCopyMode = False Selection.Copy Range("AE17").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("BA48:BI50").Select Application.CutCopyMode = False Selection.Copy Range("AE48").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("BA67:BI81").Select Application.CutCopyMode = False Selection.Copy Range("AE67").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("BA98:BI100").Select Application.CutCopyMode = False Selection.Copy Range("AE98").Select […]