• 所有问题

    • VBA在指定的一列查找内容，并将内容所在行复制到另一工作表指定单元格

    在sheet1中Rang（A）查找内容123，将123所在行的内容复制到sheet2中

    举报该问题
    推荐答案   2018-11-21
    Sub aa()
     Dim x
     x = Application.Match(123, Range("a1:e1"), 0)
     Cells(1, x).EntireRow.Copy Sheets("sheet5").Range("a1")
    End Sub

    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2018-11-21
    这个代码倒是好写，不过你的指定内容是什么？你的表格最大列和最大行数是多少?或者说你的表格从a1单元格起是连续区域吗？只有知道这些才能帮你写代码？追问

    比如在sheet1中Rang（A）查找内容123，将123所在行的内容复制到sheet2中

    相似回答
    如何能过VBA将筛选后的内容复制到另一张表的指定位置?答：Sheets("2").cells.SpecialCells(xlCellTypeVisible).Copy Range("A1")这么多 应该就可以了
    VBA如何在多个表单里查找某一个单元格内容并且复制所有查找结果同行的...答：先从指定区域查找123，找到的话就把找到的单元格右侧10个单元格内容放到数组a，你后面再把a的内容给到你的目标区域即可。
    vba查找包含特定文字的单元格并提取到一个新表上面,请大神答：第一步，准备数据。假设我们有三个表（表一、表二、表三）和一个汇总表。表一数据包括：表二数据包括：表三数据包括：第二步，插入一个名为“active”的按钮至汇总表中，并为其添加单击事件，编写VBA代码。以下是具体的VBA代码：vba Private Sub CommandButton1_Click()Application.ScreenUpdating = F...
    怎样用VBA把一个工作表的内容复制到另一个工作表?答：操作如下：1、原数据如下 2、点选B列 3、按F5调出定位功能，点击定位条件 4、选择控制，点确定 5、在第一个空白单元格处输入“=”6、然后点击上一单元格B2 7、按Ctrl+Enter组合键 8、自动填充完成
    VBA条件查找数据,然后返回数据某一列的值到另一表的单元格。答：代码放到表2中，Sub 查找()Dim Rng As Range Set Rng = Worksheets("sheet1").Columns("A").Find("6135587583", LOOKAT:=xlWhole)If Rng Is Nothing Then MsgBox "没有找到该项目"Else Range("D7").Value = Rng.Offset(0, 3).Value End If End Sub ...
    vba在其它工作簿指定区域查找指定内容,并复制单元格下所有数据到当前工...答：1、 定义B1:I11，即原数据表为 名称 “xuesheng”；2、在目标表中姓名列下输入如图的公式，再下拉到所需要的单元格即可。对于不在同一个工作簿中的，可以用以下方法来变相实现:1、 在目标表所在的工作簿中新建一个工作表（以下简称“A表”），同时，打开原基础数据表（以下简称“B表”）；2、 ...
    ...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 ...
    ...列数据自动复制到另一个工作表中对应的列中(用vba)答：在这段代码中，我们定义了两个工作表对象，分别指向表1和表2。然后，我们将表1的A1至D10区域的数据复制到表2的A1单元格，并粘贴为数值和数字格式。根据实际需要，您可以调整复制的范围和粘贴的位置。保存并关闭VBA编辑器，回到Excel，按Alt+F8打开宏对话框，选择CopyData宏，点击运行。从此以后，每次...
    如何用vba代码查找并提取相对应的整行数据到新的工作表中,部分按行排...答：在sheet2 的工作表标签上点击右键选查看代码,然后粘贴下面的代码,然后保存.返回sheet2工作表.只要在A2单元格输入有效的数据,就可以自动返回你要的结果.Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address(0, 0) = "A2" Then endrow = Sheet1.Range("A65536").End(...
    大家正在搜
    查找单元格内指定内容excel查找指定内容的单元格表格如何查询指定的内容怎么查找表格中的内容xlsx查找指定内容excel怎么查找指定内容表格怎么查找包含内容怎样在文档中查找需要的内容excel 查找指定内容函数
    相关问题
    vba在其它工作簿指定区域查找指定内容,并复制单元格下所有数...
    excel怎么用vba复制指定列符合条件的单元格及其所在行到...
    VBA如何在多个表单里查找某一个单元格内容并且复制所有查找结...
    vba excel查找指定内容并复制到指定单元区域
    VBA 指定在J列搜索某单元格的内容并复制
    如何用vba查找 符合条件的单元格 并复制到另一个表中
    如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后...
    excel如何用VBA实现搜索某些符合条件的行，并复制到同一...