請問sheet 欄位轉換問題

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

15^# 跳轉到 »

發表於 2011-12-21 23:08 | 只看該作者

回復 14# Hsieh

你好
比對規則是工單加工程來判斷對應的j欄如果是ok
就反紅

Tony

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2011-12-21 22:56 | 只看該作者

回復 13# tonycho33

你的項目重複，請說明比對規則

學海無涯_不恥下問

TOP

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

13^#

發表於 2011-12-21 22:53 | 只看該作者

回復 10# Hsieh

欄位增加時
反紅對應的儲存格好像會對不到
請問要如何解決呢
謝謝

sheet 欄位轉換 - 複製.rar (16.52 KB)

Tony

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-12-21 22:51 | 只看該作者

回復 11# tonycho33

Sub 轉置()
Dim A As Range, Ar(), Ay(), i%, j%, Ary(), s&
With Sheets("a")
For Each A In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants) '在A2以下有資料的儲存格做迴圈
Ar = A.Resize(, 4) 'A欄向右擴展成欄的範圍，取得工單、料號、摘要、數量
Ay = .Range(A.Offset(, 6), A.Offset(, 6).End(xlToRight).Offset(2)).Value '從G欄向右到該列資料尾向下2列的範圍存入陣列變數
For i = 1 To UBound(Ay, 2) '迴圈從1開始到資料陣列的欄數
ReDim Preserve Ary(7, s) '，擴展動態陣列此陣列有7列，擴展成s欄
Ary(0, s) = Ar(1, 1): Ary(1, s) = Ar(1, 2): Ary(6, s) = Ar(1, 4) '將工單、料號、數量寫入陣列
For j = 1 To UBound(Ay, 1)
Ary(j + 1, s) = Ay(j, i) '將每個工程的3個項目寫入陣列
Next
s = s + 1 '準備下次動態陣列擴增的欄數
Next
Next
End With
Sheets("b").UsedRange.Offset(1) = "" '清空原來資料
Sheets("b").[A2].Resize(s, 7) = Application.Transpose(Ary) '將陣列寫入b工作表
End Sub

複製代碼

學海無涯_不恥下問

TOP

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

11^#

發表於 2011-12-21 22:26 | 只看該作者

回復 10# Hsieh

可以解釋一下這一段嗎
真的看不大懂
For i = 1 To UBound(Ay, 2)
ReDim Preserve Ary(7, s)
Ary(0, s) = Ar(1, 1): Ary(1, s) = Ar(1, 2): Ary(6, s) = Ar(1, 4)
For j = 1 To UBound(Ay, 1)
Ary(j + 1, s) = Ay(j, i)
Next
s = s + 1

Tony

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-12-21 18:04 | 只看該作者

回復 9# tonycho33

sheet 欄位轉換.rar (13.16 KB)

學海無涯_不恥下問

TOP

tonycho33