单元格区域的引用

weilichao

例如我有A1：A3的单元格数据需要引用，
A1=1
A2=2
A3=3

我要的结果是
1
2
3


我的代码是这样的，但是报错，请各位大侠帮忙看看



Sub idi()


Dim a As Range

Set a = Range("a1：a3")
MsgBox a

End Sub

jiminyanyan

你要啥结果？…………。

weilichao

jiminyanyan 发表于 2018-6-26 21:43
你要啥结果？…………。

A1=1
A2=2
A3=3

我要的结果是
1
2
3

不知道为什么

weilichao 发表于 2018-6-26 21:44
A1=1
A2=2
A3=3

你那样不会有正确结果啊

weilichao

不知道为什么 发表于 2018-6-26 21:45
你那样不会有正确结果啊

不好意思，没听明白

jiminyanyan

Sub jimin()
    Dim str
    For i = 1 To 3
        str = str & Cells(i, 1) & Chr(13)
    Next
    MsgBox str
End Sub

weilichao

jiminyanyan 发表于 2018-6-26 21:48
Sub jimin()
    Dim str
    For i = 1 To 3

请问CHR是？

一把小刀闯天下

'马上开始比赛了，是这样子的吧

Option Explicit

Sub test()
  Dim arr, i
  arr = [a1:a3]
  ReDim brr(1 To UBound(arr, 1))
  For i = 1 To UBound(arr, 1): brr(i) = arr(i, 1):  Next
  MsgBox Join(brr, vbNewLine)
End Sub

不知道为什么

weilichao 发表于 2018-6-26 21:44
A1=1
A2=2
A3=3

用下面的代码应该是你需要的效果。

1. Sub test1()
   
2.   Dim a As Range, a1 As Range
   
3.   Set a = Range("a1:a3")
   
4.   For Each a1 In a
   
5.     MsgBox a
   
6.   Next
   
7. End Sub

复制代码

不知道为什么

weilichao 发表于 2018-6-26 21:49
请问CHR是？

换行符