麻辣家族討論版版 » Excel程式區 » [發問]如何在一張表裏,將每兩行資料輸出成一行

返回列表下一主題上一主題發帖

[發問]如何在一張表裏,將每兩行資料輸出成一行

中學生 Rank: 2

帖子: 16
主題: 9
精華: 0
積分: 60
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2024-9-9

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-10-7 19:55 | 只看該作者

[發問]如何在一張表裏,將每兩行資料輸出成一行

請教高手怎麼寫快想破頭

請看資料格格式付件

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

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

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

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

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

不過這樣很笨也很沒彈性

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

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

vba 初學者萬分感謝

mytest.rar (18.28 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 16
主題: 9
精華: 0
積分: 60
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2024-9-9

4^#

發表於 2010-10-7 20:13 | 只看該作者

重傳一個

mytest-new.rar (18.07 KB) 請指教

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-10-7 20:12 | 只看該作者

回復 1# yurckr

Sub Ex()
Dim i, Ar(1 To 5)
With Sheets("工作表1")
For i = 8 To .Range("b" & Rows.Count).End(xlUp).Row Step 2
Ar(1) = .Cells(i, "A")
Ar(2) = .Cells(i, "B")
Ar(3) = .Cells(i, "E") & .Cells(i + 1, "E")
Ar(4) = .Cells(i, "F") & .Cells(i + 1, "F")
Ar(5) = .Cells(i, "G") & .Cells(i + 1, "G")
Sheets("工作表2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 5) = Ar
Next
End With
End Sub

複製代碼

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

2^#

發表於 2010-10-7 20:08 | 只看該作者

传xls格式的文件。

靜思自在 : 要用心，不要操心、煩心。

返回列表下一主題上一主題