-
-3 votesanswersviews
将相对于日期（列）的值从工作表复制/粘贴到具有日期列的另一个工作表
我是VBA Excel的新手 . 我试图制作一个并不困难的宏，但我是如此缺乏经验 . 我有sheet1的日期列（整月），每个日期都有不同的值 . 因此，列A充满了日期，列B充满了值（与日期有关） . Sheet2 / A列也是按日期（整月）创建的 . 我想创建一个宏，它复制sheet1 / B列中的值，并根据日期将其传递给sheet2 / b列 . 换句话说，宏应该找到某个日期（在sheet2 ... -
-2 votesanswersviews
根据指定的日期复制和粘贴列数据
在Excel工作表中，单元格 C1 包含日期 . 我想要一个宏来检查 C1 中的日期，如果在第3行中提到相同的日期，则从 D6 向下复制其下方的所有匹配日期数据，粘贴到Sheet2，单元格 B3 ，并将列 A 从行 6 向下复制到Sheet2，cell A3 . -
0 votesanswersviews
Excel VBA复制数据，范围为每100000行，并粘贴到不同的工作表，直到所有数据都已在范围内复制
我想将工作表（Sheet1）中的数据复制到另一个工作表（Sheet2） . 但是，我希望以100,000行的块完成此操作并继续，直到Sheet1中的所有数据都已复制到Sheet2 . 我玩弄了offsets，rows.count等，但我无法让它工作 . 任何帮助深表感谢 . Sub MyRow() Dim iRow Dim Z As Integer Application.ScreenUpdat... -
-1 votesanswersviews
将单元格从一个工作表复制并粘贴到另一个工作表中
我需要一个VBA代码从一张纸上移动特定单元格（在代码中也可以称之为Sheet1），单元格需要复制：AA5，AA6，AA7，AA8和AA10 . 需要复制的单元格需要连续粘贴到另一张纸（sheet2）（AA5 - A，AA6-B，AA7 - D，AA8 - F和AA10 - G）显然，A，B等等我的意思是sheet2中的列 . -
0 votesanswersviews
将动态范围复制并组合到新工作表Excel宏
我一直试图弄清楚这一点，但无法让它工作，因为宏代码需要更加动态 . 我是编写宏的新手，非常感谢你的帮助 . Sheet1有两个范围： 第一个范围来自A2：MXXX（取决于我评估的行数） 第二个范围是A3001：M3XXX（也取决于我评估的行数） . 我想复制第一个范围，直到A列中包含Sheet2值的最后一行 . 然后，我想复制第二个范围，直到A列中包含值的最后一行，并将其放在She... -
0 votesanswersviews
从Sheet1读入CustomerID，在工作表2上找到CustomerID，将CustomerName复制/粘贴到Sheet1
我很擅长excel，所以请耐心等待 . 在我的工作簿的Sheet1上，我有像CostumerID，CostumerName，Email等数据在A-G列中传播 . CostumerID填充ID，CostumerName为空 . 在我的工作簿的Sheet2上，我有2列（A和B） . A列包含CustomerID，B列包含该CustomerID的正确CustomerName . 我的问题是： 我需要... -
0 votesanswersviews
Excel VBA编程将特定行从sheet1复制到sheet2特定单元格
我想编写一个vba代码，它将从sheet1的特定列中搜索数据并复制这些行并将其粘贴到sheet2 . 我写了代码，但发现了一个问题 . 这是下面的代码 . Sheets("Sheet1").Select Range("D1").Select Dim mycode As Worksheet Set mycode = ThisWorkbo... -
2 votesanswersviews
复制另一个工作表中的匹配行
我有两个表格，第1页和第2页 . 我正在查看sheet1的第T列并粘贴完整的行，如果T在第2页中包含1.代码，效果很好，但它将结果粘贴在sheet1的同一行中的sheet2中 . 这导致行之间的空白 . 任何人都可以建议，我应该改变我的代码，以便我按顺序得到它们没有任何空行 . 另外，如何将第1行中的页眉从第1页复制到第2页？ Sub Test() For Each Cell In Sheets(... -
0 votesanswersviews
将过滤范围复制到col Headers 匹配的第2行
我需要将数据从一个工作表复制到另一个工作表并粘贴到列 Headers 匹配的下一个可用行 . 我无法创建要复制的范围 . 这似乎是问题 - rng1.SpecialCells（xlCellTypeVisible）.Copy Destination：= Sheets（“Combined Totals”） . Range（tCell.Offset（1）＆lRow） 我已经尝试创建要粘贴到使用单元格和... -
0 votesanswersviews
比较2个工作表之间的行
我在同一工作簿中有2个工作表，Sheet1和Sheet2 . 两个工作表具有相同的列数，31列和大约100行 . 两个工作表都具有相同的列值 例： colA colB colC Date Prj Name Prj Status 我需要看看表1中的行是否与表2中的行匹配 . 整行，我看了很多地方，并且所有这些都匹配单元格到单元格，我需要匹配整个行 . 例如： 查看sh... -
0 votesanswersviews
将列复制到一个工作表的最后一行并粘贴到另一个工作表的下一个空行
我正在使用下面的VBA代码，它从Sheet1复制一个范围并将其粘贴到同一个工作表中 . 但是我需要将数据粘贴到sheet2的下一个可用行中 . Private Sub CommandButton1_Click() Sheets("Sheet1").Range("A1:A5").Copy Dim lastrow As Long lastrow = Rang... -
1 votesanswersviews
匹配值并将其复制到新单元格
我正在尝试构建一个允许我执行以下操作的Excel宏： 我有两张Excel表格 . 我希望宏匹配Sheet1中的所有值，col A与Sheet2中的单元格A1匹配 . 如果匹配，则将Sheet1中的单元格Dx从Sheet1复制到单元格D1 . 如果没有，只需移动到Sheet2中的单元格A2并执行相同操作，但将单元格Dx从Sheet1复制到单元格D2 . 我尝试了vlookup方法而且失败了 . =v... -
-1 votesanswersviews
VBA Excel - 查找值并复制相应的单元格
我有一张有几张纸的工作簿 . Sheet1充当基于我们在其他工作表中输入的信息的一系列操作项的摘要 . 在Sheet1中，A列 Headers 为Tester，在此之下我们手动输入该组需要检查的缺陷编号 . 在Sheet2中，我们列出了所有缺陷 . 每个缺陷都有自己的行 . A列具有所有唯一的缺陷编号（例如，Defect001，Defect002，Defect003） . 在B列中，我们有一个... -
0 votesanswersviews
VBA将单元格复制到其中单元格具有相同值的另一个工作表
我有两个工作表，我正在使用长序列号作为单元格值 . 一张（Sheet1）有一个超链接到引用该项目的网页的每个序列号的列表 . 此列表的范围为A1：A31 . 第二张表（Sheet2）有相同序列号的大量列表，但在G1：G102范围内 . 不同之处在于此列表没有超链接，序列号有时会多次显示 . 还有一些区域的单元格是空白的，因此它会分割连续的数据列 . 我本质上想写一个宏，它接受Sheet1中的第一个... -
1 votesanswersviews
循环：将单元格值（在列表中）从一个工作表复制到另一个工作表
此宏的目的是将一个单元格值（从长列表）复制到位于不同工作表中的另一个单元格 . 这是我的代码： Sub journalben() Set rawben = Sheets("BEN") Set finaljnl = Sheets("JNL_BEN") Set Rng = Range("G2:G1048576") For ... -
0 votesanswersviews
在Sheet1中找到一个单元格然后将它所在的整行复制到Sheet2中的第一个空行
我在行开始时收到“下标超出范围”：Sheets（“Sheet1”） . Cells（“A”，i）.EntireRow.Copy . 如何将行复制并粘贴到Sheet2中的第一个打开行 . Sub IDwalkups() Dim endRow As Long Dim Match1() As Variant Dim ws As Worksheet Set ws = Worksheets("Sh... -
1 votesanswersviews
使用语句避免在空白页上运行代码
下面是从Sheet1到Sheet2（后者是受密码保护的工作表）的动态数据范围的子复制 . 它工作得很好，除了 lRowSh2 和 lColSh2 如果Sheet2完全空白会导致严重错误 . 我可以使用某种 If 语句，因此如果单元格为空，则跳过清除Sheet2的部分（注意：它们过去可能有一个值）？ 为了清楚起见，第6行是两个工作表中的 Headers 行 . Sub CopyData() Appl... -
0 votesanswersviews
将范围从sheet1复制到sheet2
我对VBA很新，但我希望有人可以帮助我 . 这就是我想做的事情; 我在Sheet1中有一个范围（"A4:C500"），其中包含一些空单元格 . 第180行 我想将整个范围复制到Sheet2 之后，如果我在Sheet 1中插入一个新行，例如 . "A24:C24"并且我用例如"A24:C24"填充值，我想首先在Sheet2中的... -
0 votesanswersviews
从上载表中的Sheet1和Sheet2粘贴中复制值
我在Sheet1和sheet2中的值在A，B，C，D和E列中 . 此外，这些值是来自其他工作表的一些vlookup值 . 现在我应该如何编写代码来复制这些值（仅）来自 sheet1 和 sheet2 并粘贴 Upload 表 . 注意： Sheet1 和 sheet2 中的列值， 要在 D 中复制的， B 将被复制到上传的F栏中， C 要在上传的 C 列中复制， D 将在上传的 E... -
0 votesanswersviews
如果一张纸的值与另一张纸匹配，则将该行粘贴到另一张纸中
在此先感谢，我正在尝试将“D”列中的sheet1值与sheet2的A列匹配，如果匹配，则将整个行复制粘贴到sheet3，然后从sheet1中删除整行 . 下面的代码适用于匹配和删除： Sub remDup() Dim LR As Long, i As Long With Sheets("Sheet1") LR = .Range("D" & R... -
0 votesanswersviews
如果它返回#N / A，则为该INDEX MATCH公式添加条件
我在Sheet3中有一个公式来查找sheet1中的值并返回它，但有时，如果值不在sheet1中，我希望它在sheet2中检查 . sheet1和sheet2在A列中具有相同的数据：A，只有列具有不同的值 . =INDEX(Sheet1!D:D,MATCH(Sheet3!A2&"MAN_CHANGE",Sheet1!A:A,0)) 如果sheet1中没有匹配，如何修改... -
0 votesanswersviews
如何一次复制一行，然后粘贴到Excel中的另一个工作表
我试过在各处搜索，但我无法找到解决问题的方法 . 我对macro vb很新 . 基本上这就是我想要做的 . 我在Sheet1中有400行的数据列表 我在Sheet2中有一个带有公式的模板表 我有Sheet3，我想在Sheet2中复制模板的输出 我想从Sheet1一次复制1行 将其粘贴到Sheet2的row1，以便计算一些公式 将整个模板表从Sheet2复制到Sheet3 ... -
2 votesanswersviews
Excel宏：设置单元格的公式
我'm writing a macro to insert a row into all selected sheets and then set some of the values to equal the values in another sheet. I' ve设法使用以下代码插入行，但我只需输入'm getting stuck trying to set the values. Wit... -
3 votesanswersviews
更新单元格公式引用时复制工作表
我在工作簿中有5张 . 当我“手动”复制其中的两个（在同一工作簿中）时，新复制的工作表会自动更改引用（在单元格公式中） . 例如，在某些单元格中，我有以下公式： =IF('1_Result'!B5="";NA();'1_Result'!B5*$C$3) 复制新工作表后，新工作表中的公式将更改为： =IF('1_Result (2)'!B5="";NA();... -
-1 votesanswersviews
使用公式未更改的VBA转置数据
代码： Sub transposeTest() Dim transposedVariant As Variant Dim sourceRowRange As Range Dim sourceRowRangeVariant As Variant Set sourceRowRange = Selection sourceRowRangeVariant = sourceR... -
1 votesanswersviews
仅复制值而不复制公式
我有一张名为Sheet1的工作表，其中包含通过公式操作的数据 . 我需要一个特定范围的数据，例如，在新工作表中复制的A2到D63，即仅按值列出Sheet2 . Sheet1中的数据范围是动态的，即每次都会更改，因此我需要该宏来处理此问题 . -
-3 votesanswersviews
Excel VBA：在一个工作表中查找详细信息，然后复制（追加）到另一个工作表[关闭]
我非常感谢你帮助构建一些宏逻辑 . 我在这里查看了很多例子（令人难以置信！），但没有发现任何足够接近我需要做的事情......我知道它可能只需要几行代码 - 这使得它更令人沮丧 . 有人可以请我走上正轨吗？ 我有一张有两张纸的单一工作簿 . Sheet1包含一个长列表（约25k行，但可变）的产品详细信息 . 列A具有产品ID，然后列B到G包含每个产品的特定详细信息 . Sheet2类似，同样具... -
-2 votesanswersviews
如何确保复制的值取决于另一张表上的变量值？
我想将表2中的一列复制到另一张表 .但 Value 取决于以下条件： 如果Sheet1 = 0，则将Sheet2中的 H103 复制到Sheet3列D. 如果Sheet1 = 1，则将Sheet2中的 H3 复制到Sheet3列D，直到100 . 如果Sheet1 = 100，则将表2中的 H102 复制到sheet3列D. 我是否需要写入条件直到第104行或我能做什么 . 请帮帮... -
-3 votesanswersviews
如何在Excel工作表中输入固定数量的条目
我在sheet1上有1,500条记录，我正在尝试： 在sheet2上只输入500个条目， 如果超过500个条目，则值必须自动跳转到sheet3 如果sheet3超过500个条目，则必须移至sheet4 . 所有这些都可以使用VBA完成 . 我怎么能破解这个？ -
0 votesanswersviews
表格之间的匹配，复制和添加值
希望将sheet2上同一行的第1列和第2列的值与sheet1上同一行的第1列和第2列的值相匹配 . 然后，将整行的sheet1匹配复制到相同行sheet2的第3列的第3行的第3行复制值的第3行复制到sheet3上的粘贴行的末尾 . IF Sheet2 Row First&Last (column1&2) Name match Sheet1 Row First&Last (c...