excel如何把6个一排数字改成4组一排？数字后面加逗号

Question

如题所述

Answer 1

Sub a()
For i = 1 To [A65536].End(xlUp).Row Step 4
Cells((i + 3) / 4, 2) = Cells(i, 1) & "，" & Cells(1 + i, 1) & "，" & Cells(2 + i, 1) & "，" & Cells(3 + i, 1) & "，"
Next
    Cells.Select
    Selection.Replace What:="，，", Replacement:="，", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",，", Replacement:="，", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False  
[A1].Select
End Sub

这段代码放到模块里，运行即可，只支持将当前活动的工作表A列数据按你的需求写入B列

执行这个a

追问

请问您什么模块，在哪？

追答

Alt+F11，插入一个模块，将上面的代码复制进去即可

Answer 2

如下图，在首个单元格（如C1）中输入公式

=OFFSET($A$1,ROW(A1)*4+COLUMN(A1)-5,)

回车确认后右拖、下拉填充。

Answer 3

做了一个示例，C1单元格是

=INDEX($A:$A,ROW(C1)*4+COLUMN(C1)-6)

之所以是-6，原因是C是第三列，要减2，第一行要减4

追问

不好意思这我看不懂，我只是想把复制下的数字编辑一下，好放到app里看数据，免得一个个输入麻烦

追答

我这个答案和后一个答案是同一意思

追问

c1单元格在哪？怎么输入公式？

追答

第C列，第一行，把上面那行字贴进去就是了

追问

从没用过这东西，还是不会，谢谢了

本回答被提问者采纳

Answer 4

可以用python中的pandas读取数据，然后reshape成你要的行和列，具体的你最好传个附件。追问

这个我完全不懂，在设置单元格格式里面能改吗?