Board logo

標題: [發問]如何在一張表裏,將每兩行資料 輸出成一行 [打印本頁]
作者: yurckr    時間: 2010-10-7 19:55     標題: [發問]如何在一張表裏,將每兩行資料 輸出成一行

請教高手怎麼寫 快想破頭

請看資料格格式付件

原始格式在工作表1 希望輸出成工作表2的資料格示

我原始的想法是想在每個人的工作評比與工作單位內的資料放到
兩個陣列 array_a 與 array_b

然後用 array_a(0)&array_a(0)來提取資料來合併

可是不知如何將工作表一的所有人名以每兩行為基礎丟入
array_a 與 array_b 直到將所有人都處理過一次

現在是用笨方法開了人數x2的陣列來直接指定每個人的資料列

不過這樣很笨也很沒彈性

所以想只改寫成用兩個陣列 就能處理這張表

不恥下問，請高手指教 高明點的寫法

vba 初學者 萬分感謝
[attach]3049[/attach]
作者: et5323    時間: 2010-10-7 20:08

传xls格式的文件。
作者: GBKEE    時間: 2010-10-7 20:12

回復 1# yurckr
  1. Sub Ex()
  2.     Dim i, Ar(1 To 5)
  3.     With Sheets("工作表1")
  4.         For i = 8 To .Range("b" & Rows.Count).End(xlUp).Row Step 2
  5.             Ar(1) = .Cells(i, "A")
  6.             Ar(2) = .Cells(i, "B")
  7.             Ar(3) = .Cells(i, "E") & .Cells(i + 1, "E")
  8.             Ar(4) = .Cells(i, "F") & .Cells(i + 1, "F")
  9.             Ar(5) = .Cells(i, "G") & .Cells(i + 1, "G")
  10.             Sheets("工作表2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 5) = Ar
  11.         Next
  12.     End With
  13. End Sub
複製代碼
作者: yurckr    時間: 2010-10-7 20:13

重傳一個 [attach]3051[/attach]請指教



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)