如何用vba查找符合条件的单元格并复制到另一个表中

我需要查找部分符合“制表日期”的那个单元格【这个单元格应该是不固定某行的k:o合并的】

然后把这个单元格复制到Sheet1的Q1

请帮帮忙
就是这个，查找中文，直接找到该单元格，然后复制到Sheet1的Q1

举报该问题

推荐答案 2018-04-29

Sub a()
On Error Resume Next
Cells.Find("制表日期", , , xlPart).Copy Sheets("Sheet1").[Q1]
End Sub
'不想把合并单元格都复制过去的话就把中间那句话改成
Sheets("Sheet1").[Q1] = Cells.Find("制表日期", , , xlPart).Value

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WjtttvBjzOeBj7XOe7t.html

其他回答

第1个回答 2018-04-29

VBA 是人类的伟大发明

第2个回答 2018-04-29

循环可解决，上具体图吧

相似回答

vba查找包含特定文字的单元格并提取到一个新表上面,请大神答：第一步，准备数据。假设我们有三个表（表一、表二、表三）和一个汇总表。表一数据包括：表二数据包括：表三数据包括：第二步，插入一个名为“active”的按钮至汇总表中，并为其添加单击事件，编写VBA代码。以下是具体的VBA代码：vba Private Sub CommandButton1_Click()Application.ScreenUpdating = F...

如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...答：给你一个工作表事件代码，你可以参考使用:Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False On Error Resume Next Dim a As String， b As String， x As Integer， y As Integer Dim rng As Range y = Sheets(3).[a65536].End(3).Row If Target <>...

如何用vba查找 符合条件的单元格 并复制到另一个表中答：Sub a()On Error Resume NextCells.Find("制表日期", , , xlPart).Copy Sheets("Sheet1").[Q1]End Sub'不想把合并单元格都复制过去的话就把中间那句话改成Sheets("Sheet1").[Q1] = Cells.Find("制表日期", , , xlPart).Value

vba中如何复制指定区域非空数据到另一个sheet空白单元格,另一个shee...答：在VBA中，要复制指定区域中的非空单元格到另一个工作表的空白单元格，首先需要遍历指定区域，查找所有非空单元格。这里可以使用循环遍历，找到非空单元格后，使用Union方法将它们组合起来。接下来的问题是如何在目标工作表中找到空白单元格进行数据粘贴。这里的关键在于，目标工作表中的空白单元格分布情况...

VBA 如何批量将单元格复制到另一个工作表中答：想要批量将单元格内容复制到另一个工作表中，可以使用VBA代码实现这一操作。这里提供一个实用的示例，具体步骤包括定义范围变量，选择需要复制的单元格区域以及指定目标工作表的粘贴位置。例如，将SHEET1中已使用区域的内容复制到SHEET2，并从SHEET2的A1单元格开始粘贴。相关代码如下：首先，定义两个范围变量...

使用VBA在Excel按条件查找,怎么让查找的两个结果显示在一个表格中?答：下载文件：excel(成绩).xls|按你的意思编了一个简单的VBA程序，利用循环语句FOR……NEXT的嵌套就能轻松实现想要的结果，其代码如下：Public Sub ppp()Dim a As Integer a = [a65536].End(xlUp).Row For k = 2 To a Cells(k, "I") = Cells(k, "A")j = 0 u = 0 For b = 2 To...

excel怎么用vba复制指定列符合条件的单元格及其所在行到另一个工作表...答：col="A" '判断条件所在列，可修改为基本列 j=2 for i=2 to cells(65536,col).end(xlup).row if cells(i,col)>100 then '符合条件 Rows(i).copy sheets("另一个工作表名称").cells(j,"A") '整行复制到另一工作表的A列 j=j+1 end if next ...

...一个表中某些单元格然后选择性粘贴到另一个表中的特定单元格_百度知 ...答：$A$27=$F5)*($B$4:$B$27=G$4)*$C$4:$C$27)=SUMPRODUCT(($A$4:$A$15=$F5)*(--LEFT($B$4:$B$15,LEN($B$4:$B$15)-2)=G$4)*$C$4:$C$15)用这样的即可如果要引用其他工作表的需要加上sheet标签，如果要引用其他文件，需要用 [表一.xls]sheet1!这样进行引用。

vba将符合条件的单元格所在行复制到新表答：附件中:ALT+F8选中执行 ALT+F11查看代码 sheet1的A列的单元格格式是日期,符合条件是数据指定写入sheet2,在sheet2中写入的数据不会覆盖,而是向下顺延

大家正在搜

vba复制表格内容到另一表格 VBA如何实现条件复制单元格表格中复制多个单元格如何复制筛选出的单元格 vba复制多个单元格 vba复制不连续的单元格 vba复制单元格的值 vba复制单元格至其他工作表 vba 合并单元格

如何用vba查找 符合条件的单元格 并复制到另一个表中

如何用vba查找符合条件的单元格并复制到另一个表中