excel怎么让竖着的一列数据横着排,一排4个.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 14:50:05

或者想办法帮我改一下我写的一个宏,这个宏虽然可以让竖着的一列数据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

用函数公式就能解决了
在C1单元格写入公式
=INDEX($A:$A,COLUMN(A1)+ROW(A1)*4-4)
或
=OFFSET($A$1,COLUMN(A1)+ROW(A1)*4-5,)
右拉填充至F1单元格,再下拉填充

excel怎么让竖着的一列数据横着排,一排4个. excel里怎么让一排数据加上一个-6到6的随机数 EXCEL中怎么让一列数据都乘以同一个数? Excel如何让一列数据取绝对值 excel中用哪个函数求一列数据中满足条件的数据有多少个 excel怎样统计一列数据中不同的数据分别有多少个? EXCEL中怎样让一列表格的数据在原来基础上增加一定倍数 excel表格的一列数据相加 excel一列数据中相同的数有几组 EXCEL,怎么把一列数据除以另一列数据 excel表中统计一列中个数据各有几个怎么做 EXCEL表格中一列数据统计出这一列数据中某个数字出现的总次数,怎么实现?