返回列表 上一主題 發帖

[發問] 資料轉置(利用vba自動更新)

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2015-1-30 21:54 | 顯示全部帖子
大家好
想請問大家以下資料轉置
該如何用vba完成

原始資料如下（sheet1)
第一欄    第二欄
    A    ...
ciboybj 發表於 2015-1-29 13:12
  1. Sub NN()
  2.   Dim iCol%
  3.   Dim lRows&
  4.   Dim sStr$
  5.   Dim vD, vRow
  6.   
  7.   Set vD = CreateObject("Scripting.Dictionary")
  8.   Set vRow = CreateObject("Scripting.Dictionary")
  9.   lRows = 1
  10.   iCol = 1
  11.   Sheets("Sheet2").Cells.Clear
  12.   With Sheets("Sheet1")
  13.     While .Cells(lRows, 1) <> ""
  14.       sStr = CStr(.Cells(lRows, 1))
  15.       If vD.Exists(sStr) Then
  16.         vRow(sStr) = vRow(sStr) + 1
  17.       Else
  18.         vD(sStr) = iCol
  19.         iCol = iCol + 1
  20.         vRow(sStr) = 1
  21.         Sheets("Sheet2").Cells(vRow(sStr), vD(sStr)) = .Cells(lRows, 1)
  22.         vRow(sStr) = vRow(sStr) + 1
  23.       End If
  24.       Sheets("Sheet2").Cells(vRow(sStr), vD(sStr)) = .Cells(lRows, 2)
  25.       lRows = lRows + 1
  26.     Wend
  27.   End With
  28. End Sub
複製代碼

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題