[已解决]Excel中如何同时选中满足特定条件的行所在列?

xinyu590

我想问，有没有VBA代码是可以先判断单元格是否为"规划时效"，如果等于"规划时效"，就选中其所在的列;然后继续判断下一个单元格是否为"规划时效"，等于"规划时效"的话就继续选中其所在的列(不等于"规划时效"就不选中);然后继续判断下一个单元格，等于"规划时效"的话就继续选中其所在的列....一直到判断完毕，有高手能实现这样的代码吗?

最佳答案

月排行榜 / 总排行榜

grf1973

2014-6-21 09:13

1. Sub test()
   
2.     Dim SelRng As Range
   
3.     For j = 1 To 100
   
4.         If Cells(2, j) = "规划时效" Then
   
5.             If SelRng Is Nothing Then
   
6.                 Set SelRng = Columns(j)
   
7.             Else
   
8.                 Set SelRng = Union(SelRng, Columns(j))
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     If Not SelRng Is Nothing Then SelRng.Select
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub test()
   
2.     Dim SelRng As Range
   
3.     For j = 1 To 100
   
4.         If Cells(2, j) = "规划时效" Then
   
5.             If SelRng Is Nothing Then
   
6.                 Set SelRng = Columns(j)
   
7.             Else
   
8.                 Set SelRng = Union(SelRng, Columns(j))
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     If Not SelRng Is Nothing Then SelRng.Select
    
13. End Sub
    

复制代码

grf1973

请看附件。

xinyu590

grf1973 发表于 2014-6-21 09:14
请看附件。

谢谢啊，我先看看

xinyu590

grf1973 发表于 2014-6-21 09:14
请看附件。

追问：为什么在我的表上面选中的是一大片呢，如何实现你给的效果

[attach]我的文件[/attach]
大神，帮忙看下，谢谢

grf1973

主要是你上面有合并单元格，先整列会出现问题。针对你的文件，代码可以修改一下：

1. Sub test()
   
2.     Dim SelRng As Range
   
3.     For j = 1 To ActiveSheet.UsedRange.Columns.Count
   
4.         If Cells(3, j) = "规划时效" Then
   
5.             If SelRng Is Nothing Then
   
6.                 Set SelRng = Cells(4, j).Resize(23, 1)
   
7.             Else
   
8.                 Set SelRng = Union(SelRng, Cells(4, j).Resize(23, 1))
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     If Not SelRng Is Nothing Then SelRng.Select
    
13. End Sub
    

复制代码

grf1973

请看附件。