Tag: 复制粘贴

将特定列有条件地复制到另一个工作表: 我有下面的例子将从工作表1复制到工作表2的特定行，如果在E列中find“是”。我需要它只复制行的特定列，是B＆C. Fund Account Amount Gain/Loss As/Of? (Y/N) 1 11111 $15,000.00 -$1.51 YES 1 22222 $32,158.52 $78.14 YES 2 123123 $1.00 $0.00 NO 码： Sub As_Of_Analysis_Sorting() Dim lr As Long, lr2 As Long, r As Long lr = Sheets("All Trades").Cells(Rows.Count, "A").End(xlUp).Row lr2 = Sheets("As-Of Trades").Cells(Rows.Count, "A").End(xlUp).Row For r = lr To 2 Step -1 If Range("E" […]

将Excel图表和表格复制到Powerpoint: 我正在尝试在Excel中创build图表和表格，然后通过PowerPoint VBAmacros将其复制到幻灯片中。我有创build的图表和表格，但我有复制和粘贴它们的问题。我不熟悉这样做的语法。任何帮助将不胜感激，因为我是新的PowerPoint VBA。 Sub GenerateVisual() Dim dlgOpen As FileDialog Dim folder As String Dim excelApp As Object Dim xlWorkBook As Object Dim xlWorkBook2 As Object Dim PPT As Presentation Dim Name1 As String Dim Name2 As String Set PPT = ActivePresentation Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True Set xlWorkBook = excelApp.workbooks.Open("C:\Users\wzawisa\Downloads\MarketSegmentTotals.xls") […]

如果A1与带有列表的工作表中的数据匹配，将数据从一个工作表传输到多个工作表: 我有大约20-30张每天创build的表单，它们都以A1的名字开头，比如“Pamela Anderson”，我希望脚本在表单中find名为“List”的匹配文本，并在单元格B1中添加任何内容在列表中的“Pamela Anderson”旁边的单元格中。列表从A3开始，最多从B35开始。如果名称不在列表中，则不应将任何数据添加到B1中。因此，如果在单元格A1中的“随机表名”中表示“Barrack”，并且在列表A5中有“Barrack”，而B5中有“Obama”，则应该将B5信息复制到“random sheetname”中并粘贴到B1中。该脚本应search所有工作表并在可能的情况下添加数据。我怎样才能做到这一点？

如何检测一个单词是否存在于一个单元格中，在一个string中？: 我正在处理一些代码，我需要检测一个单元格是否包含特定的单词，如果有，则会在相邻的单元格中插入一个特定的string。但是，我在做检测部分的问题！这是我迄今为止。 Sub searchandpaste() Dim stopvar As Variant Dim i As Variant Dim j As Variant Dim k As Variant Dim TestVal1 As Variant Dim TestVal2 As Variant i = 0 j = 0 Do While stopvar = 0 i = i + 1 MsgBox ("Row " & i) MsgBox ("j equals " & […]

macros复制并粘贴使用循环: 我正在试图通过从不同的工作表中复制信息到摘要工作表来做一个总结。更具体地说，我试图将sheet3中的单元格O3和O4分别复制到sheet1中的单元格D3和E3中。然后，我想继续前进，并将单元格O3和O4从表单4分别复制到单元格1中的单元格D4和E4，等等通过我的所有表单。我是macros观编码全新的，所以非常感谢任何帮助，谢谢。我假设一个人将不得不使用一个循环。 PS工作表是以公司的名字命名的（例如“DataGroup”而不是“Sheet3”）会影响代码吗？

从本地Excel 2010复制并将公式粘贴到远程（Citrix服务器）Excel 2013不起作用: 我在本地计算机（Windows 7）上运行了Excel 2010，还在远程Citrix服务器上运行了另一个Excel 2013。从本地Excel 2010中复制包含公式的单元格并尝试将其粘贴到远程Excel 2013时，它只粘贴值而不是公式。如果我粘贴特殊，它不给我公式选项，而是粘贴为图片，位图，DIF，Unicode文本或文本的选项。我想能够粘贴公式。问题发生，因为从本地复制到远程复制或是Excel版本的差异（2010年vs 2013年）。有没有解决办法？在此先感谢您的帮助。

macros不执行: 我有下面的代码。我想要实现的是macros应该低下国家列。 F列。find一个国家，然后将该国家的所有数据复制并粘贴到新的表格中。将该国家的选项卡命名为F列中的下一个国家 Marco编译得很好，但没有任何反应，将不胜感激。代码如下，我也附上了一张照片 Option Explicit Sub Filter() Dim wsCL As Worksheet Set wsCL = Worksheets("CountryList") Dim rCL As Range, rCountry As Range Set rCL = wsCL.Range("A1:A201") Dim ws1 As Worksheet Set ws1 = Worksheets("Sheet1") Dim lRow As Long lRow = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row For Each rCountry In rCL 'check if country exists […]

基于列标题的VBA复制和粘贴列: 我希望你能帮上忙。我想要实现的是这样的：我希望VBAsearch列标题来find包含文本“CountryCode”的标题，一旦它发现这个我想要它剪切这个列并将其粘贴到第六列。我的代码尝试在下面，但它不能正常工作我已附加屏幕截图，以便更好地理解。我知道Destination:=Worksheets("Sheet1").Range("E5")是错误的我只是无法看到让它粘贴到新创build的F列屏幕截图：国家代码在列WI只是不能得到它粘贴到新的F列。任何帮助将不胜感激。 Sub Sample() Dim ws As Worksheet Dim aCell As Range, Rng As Range Dim col As Long, lRow As Long Dim colName As String '~~> Change this to the relevant sheet Set ws = ThisWorkbook.Sheets("Sheet1") With ws Set aCell = .Range("A1:X50").Find(What:="CountryCode", LookIn:=xlValues, LookAt:=xlWhole, _ MatchCase:=False, SearchFormat:=False) '~~> If Found […]

运行时错误'1004'ActiveSheet.Paste到表失败: 你好我是VBA和stackoverflow的新手。我的程序只是selectTable1并将其复制到Table2的末尾。代码如下。 Sub c_p() Application.Goto Reference:="Table1" Selection.Copy Application.Goto Reference:="Table2" Selection.End(xlToRight).Select Selection.End(xlDown).Select Selection.ListObject.ListRows.Add AlwaysInsert:=False ActiveSheet.Paste End Sub 当我运行该程序时，它会给出“运行时错误”1004“”。这一行中的错误： ActiveSheet.Paste 我知道有更好的方法去做这件事，而不是使用select，虽然这些对我来说很有趣，但我也想知道问题的原因。感谢您的帮助。

VBA在列标题中查找空白单元格: 我希望你能帮上忙。我有一段代码，它的工作有点。我只需要它做更多。它目前沿着从A1到H1的第一排。如果find空白单元格，则将单元格值复制到空白单元格的左侧，然后将该值粘贴到空白单元格中，然后一起移动。由于范围可以从一天到一天改变到H1是不够的。我现在需要代码来查看第一行，直到find最后一个包含数据的单元，然后查找空白并开始复制和粘贴过程。我还需要代码然后添加一个2到粘贴的单元格，以便我可以执行一个透视和区分复制的单元格和粘贴。为了更好的理解，我在下面提供了一张图片。最终结果应该是单元格B2包含文本24 – 公司：Hier 2和E2包含文本07 – 产品：Family Hier 2 我的代码是低于和往常一样，所有的帮助非常感谢。图1 我的代码 Public Sub BorderForNonEmpty() Dim myRange As Range Set myRange = Sheet1.Range("A1:H1") For Each MyCell In myRange If MyCell.Text = "" Then MyCell.Offset(0, -1).Select ActiveCell.Copy ActiveCell.Offset(0, 1).PasteSpecial (xlPasteAll) End If Next End Sub