excel怎么让竖着的一列数据横着排,一排4个. 或者想办法帮我改一下我写的一个宏,这个宏虽然可以让竖着的一列数据4个一排横着排但是会出现第一行第四格空出一格的情况,有什么办法把程序
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/24 11:19:55
excel怎么让竖着的一列数据横着排,一排4个. 或者想办法帮我改一下我写的一个宏,这个宏虽然可以让竖着的一列数据4个一排横着排但是会出现第一行第四格空出一格的情况,有什么办法把程序
excel怎么让竖着的一列数据横着排,一排4个.
或者想办法帮我改一下我写的一个宏,这个宏虽然可以让竖着的一列数据4个一排横着排但是会出现第一行第四格空出一格的情况,有什么办法把程序修改一下吗.
Sub 输入数据()
Sheet1.Range("A1").Value = 100
For i = 1 To 100
t = "a" & i
Sheet1.Range(t).Value = i
Next i
End Sub
Sub 改变数据()
Dim i As Integer
Dim j As Integer
Dim b As String,t As String
j = 2
b = "b"
For i = 1 To 100
If i Mod 4 = 0 Then
j = j + 1
b = "b"
End If
t = "a" & i
b = Chr(Asc(b) + 1)
Sheet1.Range(b & j).Value = Sheet1.Range(t).Value
Next i
End Sub
excel怎么让竖着的一列数据横着排,一排4个. 或者想办法帮我改一下我写的一个宏,这个宏虽然可以让竖着的一列数据4个一排横着排但是会出现第一行第四格空出一格的情况,有什么办法把程序
用函数公式就能解决了
在C1单元格写入公式
=INDEX($A:$A,COLUMN(A1)+ROW(A1)*4-4)
或
=OFFSET($A$1,COLUMN(A1)+ROW(A1)*4-5,)
右拉填充至F1单元格,再下拉填充