[已解决]【求助】变量定义右界错误

xdwy81129

学习写了个宏如下：把第7行的内容在B7开始往下竖着显示。

Sub Macro1()
Dim Rd&, A&
Rd = [A7].End(xlToRight).Column
For A = 1 To Rd
Range("B" & 7 + A) = Cells(A, 7)
Next A
End Sub

先定义变量Rd为第7行的最后的不为空的数据有多少。然后用FOR循环，可是，Rd = [A7].End(xlToRight).Column这句在运行时vb提示为黄色，不知道原因，请老师赐教。

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-1 00:00

是不是L

Sub Macro1()
Dim Rd&, A&
Rd = [A7].End(xlToRight).Column
For A = 1 To Rd
Range("B" & 7 + A) = Cells(7, A)
Next A
End Sub

跳转到最佳答案楼层

xdwy81129

即：

以下为单元格的表示意思

B8=A7

B9=B7

B10=C7

…………

雨狐

是不是L

Sub Macro1()
Dim Rd&, A&
Rd = [A7].End(xlToRight).Column
For A = 1 To Rd
Range("B" & 7 + A) = Cells(7, A)
Next A
End Sub

xdwy81129

QUOTE:

以下是引用雨狐在2009-11-1的发言：

是不是L

Sub Macro1()
Dim Rd&, A&
Rd = [A7].End(xlToRight).Column
For A = 1 To Rd
Range("B" & 7 + A) = Cells(7, A)
Next A
End Sub

晕，原来我的cells写反了。

谢谢。。。。。。。。。。

雨狐

不用循环：

Sub Macro1()
Dim Rd&, A&
Rd = [A7].End(xlToRight).Column
[b8].Resize(Rd, 1).Value = Application.Transpose(Range("a7").Resize(1, Rd))
End Sub

xdwy81129

QUOTE:

以下是引用雨狐在2009-11-1 0:06:00的发言：

不用循环：

Sub Macro1()
Dim Rd&, A&
Rd = [A7].End(xlToRight).Column
[b8].Resize(Rd, 1).Value = Application.Transpose(Range("a7").Resize(1, Rd))
End Sub

厉害，谢谢。

zsd5237

学习[em02][em02]