[已解决]怎样把一列数据分别隔一行隔一列粘贴

sixnu

数据	A1	A2	A3	A4	A5
1	1
2		2
3			3
4				4
5					5

怎样把数据那一列数值像对角线一样填充到像黄色区域那样，1、2、3、4只是举例数值

最佳答案

月排行榜 / 总排行榜

suye1010

2013-1-29 22:25

1. =IF(ROW()=COLUMN(),INDEX($A:$A,COLUMN(),1),)&""

复制代码

用这个公式来写写看

1. =TEXT((COLUMN()=ROW())*$A2,"0;;;")

复制代码

跳转到最佳答案楼层

suye1010

1. =IF(ROW()=COLUMN(),INDEX($A:$A,COLUMN(),1),)&""

复制代码

用这个公式来写写看

1. =TEXT((COLUMN()=ROW())*$A2,"0;;;")

复制代码

hwc2ycy

插入也就可以实现右移。
不过烦锁。
还是用代码吧。

sixnu

这个题用这个VBA错在哪Sub 隔行隔列复制()
    Dim i As Integer
    For i = 2 To 5
    Cells(i, i) = Cells("A" & i)
    Next i
End Sub

jrsz

sixnu 发表于 2013-1-30 13:10
这个题用这个VBA错在哪Sub 隔行隔列复制()
    Dim i As Integer
    For i = 2 To 5

以前学过VB，好久没用了，有点忘记了。看了下，好像是可以实现。cell是什么意思

jrsz

肯定是错在这，Cells("A" & i)

jrsz

"A" & i这个应该不能读数，只是字符串的意思，也就是A1,A2这些，但是读不出具体的字数

sixnu

jrsz 发表于 2013-1-30 14:50
"A" & i这个应该不能读数，只是字符串的意思，也就是A1,A2这些，但是读不出具体的字数

我也是对VBA懂些皮毛，然后就想用，呵呵，你还是非常善于思考的，那你会改吗

sixnu

jrsz 发表于 2013-1-30 14:50
"A" & i这个应该不能读数，只是字符串的意思，也就是A1,A2这些，但是读不出具体的字数

我会了，改成Sub d()
    Dim i As Integer
    For i = 2 To 5
    Cells(i, i) = Range("A" & i)
    Next i
End Sub
，这样就行了

jrsz

sixnu 发表于 2013-1-30 15:02
我也是对VBA懂些皮毛，然后就想用，呵呵，你还是非常善于思考的，那你会改吗

以前学过编程，所以能看懂。。要写代码，2年不用了，忘记了