当前位置：首页 → 问答吧 → 如何查找并选中含有特定内容的单元格区域？

如何查找并选中含有特定内容的单元格区域？

时间：2010-03-22

来源：互联网

请高手指点：查找范围从第一行第一列到最后有数据的行以及有数据的列。单元格值等于※号或*号或#号，可能不止一个单元格，也可能没有匹配的单元格，一旦查找到匹配的单元格，就选中此单元格以及此单元格右侧一列的空白单元格以及此单元格下面的所有空白单元格而构成的区域。比如找到A1含有※号，并且A2:A10是空白单元的，B1也是空白单元格，那么就选中A1:B10,用VBA怎么解决？
附件中黄色区域就是要选中的区域。

附件

Book1.rar(3.26 KB)

2010-3-22 16:07, 下载次数: 7

作者: qdaijchf 发布时间: 2010-03-22

For Each c In Sheet1.UsedRange
If c Like "*[※]*" Or c Like "*[#]*" Or c Like "*

*" Then
Range(c, c.End(xlDown)(0, 2)).Select
Stop
End If
Next

作者: Zamyi 发布时间: 2010-03-22

谢谢！
能否同时选中各块区域？我最终的目的就是把选中的区域合并。比如附件中A1:B10合并单元格，E10:F14合并单元格。

作者: qdaijchf 发布时间: 2010-03-22

Range(c, c.End(xlDown)(0, 2)).Merge

作者: ningyuanchao 发布时间: 2010-03-22

谢谢！
能否把合并单元格的区域也控制在有数据区域。比如这样：当最后有数据的一行上有※号或*号或#号时，此单元格仅仅与右侧单元格合并，不与后面的空白单元格合并，否则的话从该单元格开始到整个表格的最后一行都被合并了。

作者: qdaijchf 发布时间: 2010-03-22

还发现一个问题：就是当该单元格右侧不是空白单元格时也被合并了。我的意思就是但该单元格右侧是空白单元格时才被合并。

作者: qdaijchf 发布时间: 2010-03-22

For Each c In ActiveSheet.UsedRange
If c = "※" Or c = "#" Or c = "*" Then
Range(c, c.End(xlDown)(0, 1)).Merge
Range(c, c.End(xlToRight)(1, 0)).Merge
End If
Next
其中下面两句能否用一句表示：
Range(c, c.End(xlDown)(0, 1)).Merge
Range(c, c.End(xlToRight)(1, 0)).Merge

作者: qdaijchf 发布时间: 2010-03-22

union(c,c.end(xldown)(0,1),c.end(xltoright)(1,0)).merge
试试。

作者: lb_bn 发布时间: 2010-03-22

谢谢！
当A1="#" , A2="*" , A3="※" , A4为空白，A5有其它数据时,A1:A4被合并成一格了。而应该是仅仅A3:A4合并。这个问题如何解决？
请高手指点！

作者: qdaijchf 发布时间: 2010-03-22

Private Sub CommandButton1_Click()
LastRow = Range("A65536").End(xlUp).Row
For i = 4 To LastRow
If IsEmpty(Cells(i, 15)) Then

Cells(i - 1, 17).Resize(1, 16).Select
E = Selection.Find(What:="*").Columns'怎么确定有数字的单元格列号
Cells(i - 1, E).Resize(2, 1).Merge

'Range(Cells(i - 1, 13).Resize(1, 16)).Select
' E = Selection.Find(What:="*").Columns
' Cells(i - 1, E).Resize(2, 1).Merge
End If
Next i
End Sub

作者: zhoujiaping1976 发布时间: 2011-08-09

把Q~AF列中，按O列合并的行数从有数字那一行算起合并。