VBA中select case语句如何实现跳跃判断

wwyg

希望在一列数据中，例如1——40行的，中间有不定的空白，希望在执行语句时，空白的单元格不执行，然后继续向下一单元格执行，一直到第40个单元格。希望大神帮忙。

lsc900707

没有附件很难获得满意的解答。

jacky0202

举个例子给你，很简单的颜色填充，case跳过空单元格判断
Sub 按钮1_Click()
    Dim i%, k%, valuexx
    k = [a65536].End(3).Row
    For i = 1 To k
        valuexx = Cells(i, 1)
        If Len(valuexx) > 0 Then
        Select Case valuexx
            Case Is > 0
            Cells(i, 1).Interior.ColorIndex = 3
            Case Is = 0
            Cells(i, 1).Interior.ColorIndex = 1
            Case Is < 0
            Cells(i, 1).Interior.ColorIndex = 4
        End Select
        End If
    Next
End Sub

abc123281

if  cells(i,1)<>"" then
    select case

any1009

for i=1 to 40
   if range("A"&i)<>"" then
       执行语句
   end if
next

wwyg

any1009 发表于 2018-3-14 14:58
for i=1 to 40
   if range("A"&i)"" then
       执行语句

谢谢。完美解决问题。非常感谢

wwyg

jacky0202 发表于 2018-3-14 14:46
举个例子给你，很简单的颜色填充，case跳过空单元格判断
Sub 按钮1_Click()
    Dim i%, k%, valuexx

感谢。有时间再拜读。有点深奥。我要继续学习，争取看懂

wwyg

解决了。谢谢大家