在excel中如何做到“不定行数批量转置”

发布网友发布时间：2022-05-25 17:57

共3个回答

热心网友时间：2024-03-02 16:07

sheet1加辅助列B,C
B1=1
B2=IF(A1="",1,IF(A2="","",B1+1)) 下拉复制
C1=IF(A1="","",ADDRESS(COUNTBLANK($A$1:$A1)+1,B1))下拉复制
公式说明：C1取出转置后的单元格地址

sheet2:
A1=IF(ISERROR(MATCH(ADDRESS(ROW(),COLUMN()),Sheet1!$C:$C,0)),"",INDEX(Sheet1!$A:$A,MATCH(ADDRESS(ROW(),COLUMN()),Sheet1!$C:$C,0))) 右拉、下拉复制
公式说明：根据单元格地址匹配sheet1的C列值,获得A列值。

热心网友时间：2024-03-02 16:03

先选定一段数据单元格区域,复制!
选择要粘贴的单元格，右键-选择性粘贴-转置[打钩-确定！

只想到这个办法了

热心网友时间：2024-03-02 16:00

可以用vba实现
假设原数据在sheet1的A列

按住ALT依次按F11,I,M
粘贴代码后按F5即可

Sub 特殊转置()
With Sheets("sheet1")
Sheets.Add
r = 1
For x = 1 To .[a65536].End(xlUp).Row
y = .Cells(x, 1)
If y <> "" Then
c = c + 1
Cells(r, c) = y
Else
r = r + 1
c = 0
End If
Next
End With
End Sub