Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2102|回复: 7

[已解决]请教大虾:怎样动态选定区域?谢!!!

[复制链接]
发表于 2015-9-16 22:21 | 显示全部楼层 |阅读模式
9999.rar (33.43 KB, 下载次数: 10)
发表于 2015-9-17 09:38 | 显示全部楼层    本楼为最佳答案   
    Dim x, y, z, rng, p, q

    x = Sheets(1).[a2]
    y = Left(x, 3)
    z = Right(x, 2)

    Sheets(2).Activate
    Set rng = Range("b:b").Find(y)
    If Not rng Is Nothing Then
        p = rng.Row + z
        q = Range("b:b").Find(y, , , , , xlPrevious).Row
        Range(Cells(p, "F"), Cells(q, "V")).Select
    End If
End Sub
2.rar (31.63 KB, 下载次数: 11)
回复

使用道具 举报

发表于 2015-9-17 11:31 | 显示全部楼层
代码如下:
  1. Sub ranges()
  2. Dim sh As Worksheet, shh As Worksheet
  3. Dim X As Long, Y As Long, M As Long
  4. Dim t, arr
  5. Set sh = ThisWorkbook.Sheets("33")
  6. Set shh = ThisWorkbook.Sheets("00信息库")
  7. M = shh.Range("c" & Rows.Count).End(xlUp).Row
  8. With shh
  9.   arr = .Range("c6:c" & M)
  10.   For X = 1 To UBound(arr)
  11.      If arr(X, 1) = sh.Range("A2") Then
  12.         Y = X + 5
  13.      End If
  14.   Next X
  15.   N = Y
  16. t = shh.Range("F" & N & ":V" & N).Address(False, False)
  17. End With
  18. sh.Range("b2") = t
  19. End Sub
复制代码

9999.zip

40.59 KB, 下载次数: 4

回复

使用道具 举报

 楼主| 发表于 2015-9-17 13:27 | 显示全部楼层
爱疯 发表于 2015-9-17 09:38
Dim x, y, z, rng, p, q

    x = Sheets(1).[a2]

非常感谢!!!
回复

使用道具 举报

 楼主| 发表于 2015-9-17 13:28 | 显示全部楼层
金樽空对月 发表于 2015-9-17 11:31
代码如下:

只能选定一个单元格,谢谢!!辛苦!!
回复

使用道具 举报

发表于 2015-9-17 13:58 | 显示全部楼层
白云无尽9987 发表于 2015-9-17 13:28
只能选定一个单元格,谢谢!!辛苦!!

[em06]不好意思,把你的要求理解错了,我还以为你要把选中的区域显示在B2单元格内妮。
回复

使用道具 举报

 楼主| 发表于 2015-9-17 18:24 | 显示全部楼层
金樽空对月 发表于 2015-9-17 13:58
不好意思,把你的要求理解错了,我还以为你要把选中的区域显示在B2单元格内妮。

哪里!感谢都来不及呢?人世间最难得“热血”二字!!!
回复

使用道具 举报

发表于 2015-9-17 20:03 | 显示全部楼层
白云无尽9987 发表于 2015-9-17 18:24
哪里!感谢都来不及呢?人世间最难得“热血”二字!!!

[em04]惭愧,惭愧!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:44 , Processed in 0.268551 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表