0
A
回答
0
請試試這個...
'************************************************************************
'The code will work like this
'1) UnPivot the data on Sheet1
'2) Insert a New Sheet called Tranposed if not available in the workbook
'3) Place the output i.e. UnPivoted data on the Transposed Sheet.
'************************************************************************
Sub UnPivotData()
Dim wsSource As Worksheet, wsDest As Worksheet
Dim x, y, i As Long, j As Long, n As Long
'Assuming your raw data is on a sheet called "Sheet1", change it if required
Set wsSource = Sheets("Sheet1")
x = wsSource.Cells(1).CurrentRegion.Value
ReDim y(1 To UBound(x, 1) * UBound(x, 2), 1 To 2)
For i = 2 To UBound(x, 1)
For j = 2 To UBound(x, 2)
If x(i, j) <> "" Then
n = n + 1
y(n, 1) = x(i, 1)
y(n, 2) = x(i, j)
End If
Next
Next
On Error Resume Next
Set wsDest = Sheets("Transposed")
wsDest.Cells.Clear
On Error GoTo 0
If wsDest Is Nothing Then
Sheets.Add(after:=wsSource).Name = "Transposed"
Set wsDest = ActiveSheet
End If
wsDest.Range("A1:B1").Value = Array("Number", "Deatils")
wsDest.Range("A2").Resize(UBound(y), 2).Value = y
wsDest.Range("A1").CurrentRegion.Borders.Color = vbBlack
MsgBox "Data Transposed Successfully.", vbInformation, "Done!"
End Sub
相關問題
- 1. 將VBA簡單宏轉換爲LibreOffice宏
- 2. VBA簡單的宏來複制公式
- 3. 簡單的Word VBA替換宏
- 4. VBA:簡單日期宏不起作用
- 5. 非常簡單的excel vba宏。指定單元格中的值
- 6. 簡單的宏Excel
- 7. 簡單的Excel宏
- 8. VBA - 簡化的複製和粘貼宏
- 9. 簡單的Visual Basic q中的excel宏
- 10. 將Word表格中的特定單元格與VBA /宏對齊,VBA /宏
- 11. VBA宏隱藏表
- 12. 簡單的VBA宏,允許用戶插入自定義編號
- 13. LLDB中的簡單宏?
- 14. 簡單的NSLog宏觀
- 15. SAS簡單的宏 - 錯誤
- 16. excel上的簡單宏
- 17. Excel VBA:啓用宏設置
- 18. 簡單表單配置
- 19. VBA簡單代碼
- 20. VBA簡單解析
- 21. VBA宏宏出口
- 22. VBA宏變化宏
- 23. VBA宏的Excel
- 24. 如何編寫(簡單)宏?
- 25. 簡單的VBA數學
- 26. 應堅持VBA/VBScript中的宏設置
- 27. excel vba宏在xml中的位置
- 28. 單擊所有按鈕的VBA宏
- 29. 單詞vba宏 - 動態引用表單元素
- 30. 如何配置簡單的表單類?
請提供你....嘗試過的代碼,以便我們可以幫助您更多.... –
查找到技術,「逆透視」。這可以在沒有VBA的情況下完成。 Power Query是一種選擇。支點表反轉樞軸是另一回事。使用你的谷歌技能。 – teylyn