[已解决]如何进行变量赋值

TOMJESSON

大家好，请教一个问题：如何在取得Range("B" & i)的值赋给变量sText 之后，让sText 的值不再变化（比如变量sText取得值为TOM，在整个循环过程中，sText的值始终为TOM，不会再变化。）？查了好多资料，搞不明白，是否我的思路有偏差，请高手指点，谢谢！

    For i = 1 To 10
        sText = Range("B" & i)
        If sText = Range("B" & i) Then
            Range("D" & i) = iTotal + Range("C" & i)
            iTotal = Range("D" & i)
        End If
    Next i

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-16 13:46

换一句话说
sText = Range("B" & i)
你的  I  怎么取值？
你现在I 是1到10的循环
你要什么时候取这个
sText = Range("B" & i)
是等于1取，还是2取。你的条件不清楚

不清楚你的条件只有这么给你写代码

那就加一个条件判断
for i = 1 to 10
n=i--------------------这里就要加你的条件，什么时候去取这个 i 值（不加条件你的n就是变化的，加了就固定了。
sText = Range("B" & n)
next i

跳转到最佳答案楼层

sunjing-zxl

  For i = 1 To 10
        sText = Range("B" & i)
        If sText = Range("B" & i) Then
            Range("D" & i) = iTotal + Range("C" & i)
            iTotal = Range("D" & i)
            exit for'找到后就结束循环，不知道这个是不是你要的
        End If
    Next i

TOMJESSON

sunjing-zxl 老师，你好，“exit for'找到后就结束循环”这样就会导致循环结束。我还需要让“i = 1 To 10”循环完成，让变量sText 的值不再变化，我想把sText 的值当作一个常量使用，直到循环结束，不知这样能实现吗？还有别的实现方法没有，请指导，谢谢！

sunjing-zxl

那就加一个条件判断
for i = 1 to 10
if   你的条件  then
sText = Range("B" & i)
endif
next i

wenchduan

要想让sText作为常量的话，那就是当sText = Range("B" & i)时直接跳出判断语句呢？！

sunjing-zxl

关键是，你定位i的条件是什么？？

sunjing-zxl

换一句话说
sText = Range("B" & i)
你的  I  怎么取值？
你现在I 是1到10的循环
你要什么时候取这个
sText = Range("B" & i)
是等于1取，还是2取。你的条件不清楚

不清楚你的条件只有这么给你写代码

那就加一个条件判断
for i = 1 to 10
n=i--------------------这里就要加你的条件，什么时候去取这个 i 值（不加条件你的n就是变化的，加了就固定了。
sText = Range("B" & n)
next i