Tag: 复制粘贴
将Excel工作表复制到包含格式的新工作表 – C＃
我需要创build一个能够复制Excel表格的方法，然后将其粘贴到同一个工作簿中的新Excel表格上，但也需要复制格式。 我发现了几个代码，但他们都不复制格式，只有文本。 在我写的代码下面： // Opening Excel File Microsoft.Office.Interop.Excel.Application excel = null; excel = new Microsoft.Office.Interop.Excel.Application(); Microsoft.Office.Interop.Excel.Workbook workbook = excel.Workbooks.Open(file, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); Microsoft.Office.Interop.Excel.Sheets sheets = workbook.Worksheets; Microsoft.Office.Interop.Excel.Worksheet sheet = (Microsoft.Office.Interop.Excel.Worksheet)sheets.get_Item(1); Microsoft.Office.Interop.Excel.Worksheet sheet2 = (Microsoft.Office.Interop.Excel.Worksheet)sheets.get_Item(2); // Copy the source sheet Object defaultArg = Type.Missing; sheet […]
查看剪贴板内容
有没有人知道我怎么能查看实际上是从Microsoft Excel复制时，我select一组单元格单击“复制”？ 我想看看，如果有的话，样式，HTML等实际上是从产品复制。 我正在扩展Dojo的富文本编辑器，并且需要确保在粘贴数据时将其正确粘贴到编辑器中。 谢谢。
如何在数据之间一次在Excel中粘贴多次
说我有这样的数据 ABC 1 Jim 1 10 2 Jim 2 20 3 Jim 3 30 4 Tom 1 20 5 6 7 Jos 1 15 8 9 我想要的是复制行2和3，然后粘贴到行5和6，然后8和9，依此类推。 空行总是2。 在单元格2C和3C中有一个计算列B中的值乘以单元格C1的公式。 所以，结果会是这样的 ABC 1 Jim 1 10 2 Jim 2 20 3 Jim 3 30 4 Tom 1 20 5 Tom 2 40 6 Tom 3 60 […]
如果该行包含基于数字范围的特定值，则将一行从一张纸复制到另一张纸上
我想复制并粘贴一行，如果该行包含一个特定的值。 不过，我有约。 我需要获得的100,000个值中有100,000个（复制并粘贴到单独的行中）。 因此，是否有可能创build一个VBA，允许我创build一个循环或某种types，我可以指定这些值？ 例如，而不是 For Each cell In Sheets(1).Range("A:A") If cell.Value = "1" Then matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Sheet1").Select End If 我需要： For Each cell In Sheets(1).Range("A:A") If cell.Value = "1 OR 3 OR 5 OR 10 OR 15, etc." Then matchRow = cell.Row Rows(matchRow & […]
格式化时复制SQL数据并粘贴到Excel中
我想复制一个SQL结果集并将其粘贴到Excel中。 但是我粘贴到电子表格的数据不想识别Excel格式。 所以如果我把一列改成货币，它什么都不会做。 但是…如果我双击一个单元格，那么它应用货币格式。 但只限于那个细胞。 我怎样才能让它自动识别Excel格式？ 我一定是我失踪的东西。 希望有人能帮助。 🙂
在复制VBA时删除空白单元格和结构化数据
我目前正在一个项目中，我需要复制一个工作簿中的目标范围，并将其粘贴到另一个工作簿，省略所有的空白单元格（有很多）。 到目前为止，我已经设法将它们全部粘贴在一起，但是我没有设法适当地构build它。 For Each c In rngSourceRange.SpecialCells(xlCellTypeVisible) If Len(c) <> 0 Then rngDestination = c.Value Set rngDestination = rngDestination.Offset(0, 1) End If Next c Application.CutCopyMode = False 格式应该是这样的。 前19个单元应该相邻排成一行，然后它应该向下移动回到第一列并列出接下来的19个条目，依此类推，直到我全部不在单元中复制。 现在我试图包括另一个for循环，但它产生了一个非常无用的结果。 For Each c In rngSourceRange.SpecialCells(xlCellTypeVisible) If Len(c) <> 0 Then For lcol = 1 To 19 wkbCrntWorkBook.Sheets("Tabelle1").Cells(lrow, lcol).Value = c.Value lrow = lrow + 1 […]
复制并粘贴最后一行，错误91
我正在试图复制和粘贴范围的值范围内的最后一行，这意味着行数会有所不同，但列的数量将保持不变。 我已经写了这样做的代码继续返回错误： 对象variables或未设置块variables 这个错误是什么意思，我该如何解决？ Sub update() Dim LR As Range Dim Revise As Range LR = Cells(Rows.Count, "M").End(xlUp).Row Set Revise = Range("M1:M" & LR) Revise.Copy Sheets(Weekly).Select Cells(1,1).PasteSpecial xlPasteAll End Sub
VBA – 复制并粘贴表格行到另一个表
我很新的VBA，我想解决我认为应该是一个非常简单的问题（我有一个Java / J2EE的背景）…我循环通过一个表，并希望将行复制到另一个工作表上的表基于一些条件陈述。 看下面的代码。 Sub closeActionItems() Dim i, iLastRow As Integer Dim date1 As Date Dim oLastRow As ListRow date1 = Date iLastRow = ActiveSheet.ListObjects("Open_Items").ListRows.Count For i = 6 To iLastRow If Cells(i, 7).Value <= date1 And Cells(i, 7).Value <> vbNullString Then Rows(i).Copy Set oLastRow = Worksheets("Closed").ListObject("Closed_Items").ListRows.Add 'Paste into new row Application.CutCopyMode = False Rows(i).EntireRow.Delete […]
通过电子邮件search将Excel 2003中的数据行复制并粘贴到其他工作表
在有人说什么之前，我已经浏览了几个与这个类似想法有关的post（按照不同的search标准进行修改，然后修改），但是我不能让macros观工作。 这可能是由于我缺乏编程知识！ 我所要做的就是在WORKSHEET 1中 search一个电子邮件地址，如果发现它，则将整行复制到WORKSHEET 2中的下一个空行。 我正在使用Excel 2003（是的，我是一个老笨蛋！）。
VBA – 复制行 – 如果发现错误，则继续复制单元格
我有macros复制单元格到下面的单元格。 Sub CopyRows2() Dim LastRow As Long With Worksheets("Ready to upload") ' <– here should be the Sheet's name LastRow = .Cells(.Rows.Count, "AD").End(xlUp).Row ' last row in column C For i = 2 To LastRow If Range("AD" & i) > "" And Range("AD" & i + 1) = "" Then Range("AD" & i).Copy Range("AD" & […]
