Question

excel数值转换问题？

请教如何把前面的数据格式专制为后面样式？谢谢

Answer 1

1、快速填充法先在前两个单元格中输入想要的数据格式，之后选中区域，按Ctrl+E快速填充即可。

这时你会发现日期并不是我们想要的格式，可以选中区域，按Ctrl+1打开设置单元格格式，之后在类型中选择自定义，然后输入代码：yyyy/mm/dd，点击确定即可。

Answer 2

很热闹！我也来给道公式：

在H1输入

=IFERROR(INDIRECT(LEFT(TEXT(SMALL(IF($B$1:$E$3<>"",ROW($1:$3)*100+COLUMN($B:$E)),ROW(1:1)),"!R00C00"),3+(COLUMN(A:A)=2)*3),),"")

数组公式，输入后先不要回车，按Ctrl+Shift+Enter结束计算，向右填充到I1，再一起向下填充。

Answer 3

'自定义公式-按ALT+F11-插入-模块-粘贴代码-将表格另存为启用宏的格式(xlsm)
Function 横排转竖排(a As Range, b As String, f As String)
For i = 1 To a.Rows.Count
For j = 2 To a.Columns.Count
If a.Cells(i, j) = "" Then Exit For
d = d & "|" & a.Cells(i, 1)
e = e & "|" & a.Cells(i, j)
Next
If a.Cells(i, 1) = "" Then Exit For
Next
g = Split(d, "|")
h = Split(e, "|")
If f = 1 Then
横排转竖排 = g(b)
Else
横排转竖排 = h(b)
End If
End Function

Answer 4

公式需要建立一个辅助列，然后用数组公式，
直接用vba
Sub 转换()
Columns("H") = ""
Dim I, X
For I = 1 To Range("a65536").End(xlUp).Row
arr = Range(Cells(I, "B"), Cells(I, "E"))
X = WorksheetFunction.CountA(Range(Cells(I, "A"), Cells(I, "E")))
Y = Range("h65536").End(xlUp).Row
Range(Cells(Y + 1, "H"), Cells(Y + X - 1, "H")) = Cells(I, "A")
Cells(Y + 1, "i").Resize(4, 1) = Application.Transpose(arr)
Next
End Sub

Answer 5

H1:
=INDEX(A:A,SMALL(IF($B$1:$G$3<>"",ROW($1:$3),4^8),ROW(A1)))&""
ctrl+shift+回车，下拉
I1:
=IF(H1="","",VLOOKUP(H1,A:G,COUNTIF(H$1:H1,H1)+1,))
下拉