当每个选择只有一个单元格时，每个都会失败 [英] For each fails when there is only one cell selected

问题描述

  Dim source as variant 
 source = Range（A4 ：& rowcount）
  

然后我正在为每个

 对于源中的每个元素
 ..... 
 ..... 
  

当有2-3个值被选择时，这样工作，但是当rowcount为4时， Range（A4：A & rowcount）只会选择一个单元格，而每个单元格都不工作

如果只有一个值在

我试过

  If（rowcount = 4）然后
 redim preserve source（1）
 source（1,1）= source 
  

但是它不工作

解决方案

你需要使它成为二维的

  Dim var As Variant 
 Dim rng As Range 
 Dim thing As Variant 
 Set rng = Range（a1）
如果rng .CountLarge = 1然后
 ReDim var（1到1，1到1）
 var（1，1）= rng.Value2 
 Else 
 var = rng.Value2 
 End If 
 For Each事物在var 
 MsgBox东西
下一件事
  

I am selecting a range into variant in VBA

Dim source as variant
source = Range("A4:A" & rowcount)

and then I am having a for each

For Each element in source 
.....
.....

This works when there are 2-3 values selected, but when rowcount is 4,Range("A4:A" & rowcount) will select only a cell and for each is not working

How can I make it work even when only one value is there

I tried

If (rowcount=4) Then
    redim preserve source(1)
    source(1,1) = source

But it didn't work

解决方案

You need to make it 2 dimensional

Dim var As Variant
Dim rng As Range
Dim thing As Variant
Set rng = Range("a1")
If rng.CountLarge = 1 Then
    ReDim var(1 To 1, 1 To 1)
    var(1, 1) = rng.Value2
Else
    var = rng.Value2
End If
For Each thing In var
    MsgBox thing
Next thing

这篇关于当每个选择只有一个单元格时，每个都会失败的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！