excel中列从A~AD，想变为A~Z，但排序不变

答案:3 悬赏:50 手机版

解决时间 2021-03-30 06:25

提问者网友：太高姿态
2021-03-29 06:06

最佳答案

五星知识达人网友：孤独入客枕
2021-03-29 07:21

A10=IF(COLUMN(A1)+(ROW(A1)-1)*26>COUNTA($A$1:$AD$6),"",INDIRECT(TEXT(SMALL(ROW($A$1:$AD$6)*100+COLUMN($A$1:$AD$6),COLUMN(A1)+(ROW(A1)-1)*26),"r0c00"),))数组公式向下向右复制
【数组公式，公式输完后，光标放在公式编辑栏同时按下CTRL+SHIFT+回车键，使数组公式生效】

全部回答

1楼网友：举杯邀酒敬孤独
2021-03-29 09:51

可以的、把Excel发给我我给你弄、

2楼网友：行雁书
2021-03-29 08:11

Sub s()
    arr = [a1].CurrentRegion
    [a1].CurrentRegion.ClearContents
    x = 1
    y = 1
    For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        Cells(x, y) = arr(i, j)
        y = y + 1
        If y = 27 Then y = 1: x = x + 1
    Next
    Next
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息