爱问知识人 爱问教育 医院库

查找并引用

首页

查找并引用

如果通过函数查找表1中带★的行并在表2中显示出来?

如果通过函数查找表1……
提交回答

全部答案

    2011-11-18 12:10:49
  •   使用宏:菜单视图-宏-查看宏-执行
    Sub Macro2()
    '
    ' Macro2 Macro
    '
    Sheets("表2")。Cells(1, 1) = Sheets("表1")。Cells(1, 1)
    Sheets("表2")。
      Cells(1, 2) = Sheets("表1")。Cells(1, 2) Sheets("表2")。Cells(1, 3) = Sheets("表1")。Cells(1, 3) Sheets("表2")。Cells(1, 4) = Sheets("表1")。
      Cells(1, 4) Sheets("表2")。Cells(1, 5) = Sheets("表1")。Cells(1, 5) Sheets("表2")。Cells(1, 6) = Sheets("表1")。Cells(1, 6) Sheets("表2")。
      Cells(1, 7) = Sheets("表1")。Cells(1, 7) c1 = 2 c2 = 2 Do While Sheets("表1")。Cells(c1, 2) <> "" If InStr(Sheets("表1")。
      Cells(c1, 2), "★") > 0 Then Sheets("表2")。Cells(c2, 1) = Sheets("表1")。Cells(c1, 1) Sheets("表2")。Cells(c2, 2) = Sheets("表1")。
      Cells(c1, 2) Sheets("表2")。Cells(c2, 3) = Sheets("表1")。Cells(c1, 3) Sheets("表2")。Cells(c2, 4) = Sheets("表1")。
      Cells(c1, 4) Sheets("表2")。Cells(c2, 5) = Sheets("表1")。Cells(c1, 5) Sheets("表2")。Cells(c2, 6) = Sheets("表1")。
      
      Cells(c1, 6) Sheets("表2")。Cells(c2, 7) = Sheets("表1")。Cells(c1, 7) c2 = c2 + 1 End If c1 = c1 + 1 Loop 。

    b***

    2011-11-18 12:10:49

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):