帖子: 9
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: WIN 8
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2019-7-20
最後登錄: 2020-9-6

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2019-11-11 09:35 | 只看該作者

[發問] 請教如何做特殊排列

本帖最後由 ericpeja 於 2019-11-11 09:37 編輯

請問小弟有兩工作表分別為
SHEET1                                                                                                          SHEET2
學生號碼成績    補考1    補考2    過關                                              學生號碼 1 2 3 4 5  6 7 8 9 10
1                75                                        是                                                 過關       是是是否  是是否  是  否  是
2                65                                        是                                                 補考1                      否          是       是
3                66                                        是                                                 補考2                      否
4                35                                        否
4                               45                            否
4                                              56             否
5                98                                        是
6                76                                        是
7                35                                        否
7                            60                               是
8                77                                        是
9                49                                        否
9                            69                               是
10                90                                        是

如附件
請問我該如何用sheet1的條件(不過關須補考1再不過補考2)
讓sheet2的學生號碼的做橫向的排列(直向為是否過關及補考是否通過)
由於初學VBA 想不到較好的方法故請教版上各位前輩們~感激不盡

sheet1.png (18.59 KB)

sheet2.png (17.81 KB)

測試用.rar (7.76 KB)

樓主熱帖

mlbolerud

中學生 Rank: 2

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

9^#

發表於 2019-11-30 14:09 | 只看該作者

試看看下面的解法

Sub test()
i = 2
Do While Sheets("sheet1").Cells(i, 1) <> ""
Set A = Sheets("sheet1").Cells(i, 1)
With Sheets("sheet2").Cells(1, 1 + A.Value)
If A.Offset(0, 1).Value >= 60 Then
   .Value = A.Value
   .Offset(1, 0) = "是"

ElseIf A.Offset(1, 2).Value >= 60 Then
   .Value = A.Value
   .Offset(1, 0) = "否"
   .Offset(2, 0) = "是"
   i = i + 1

ElseIf A.Offset(2, 3).Value >= 60 Then
   .Value = A.Value
   .Offset(1, 0) = "否"
   .Offset(2, 0) = "否"
   .Offset(3, 0) = "是"
   i = i + 2

Else
   .Value = A.Value
   .Offset(1, 0) = "否"
   .Offset(2, 0) = "否"
   .Offset(3, 0) = "否"
   i = i + 2
End If
End With
i = i + 1
Loop
End Sub

MLB

TOP

ericpeja

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: WIN 8
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2019-7-20
最後登錄: 2020-9-6

8^#

發表於 2019-11-13 23:02 | 只看該作者

回復 7# 准提部林

感謝大大~成功了
不知道您可否分享這幾段函數所包含的意義??看起來好複雜的感覺
感謝您~~:)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

7^#

發表於 2019-11-13 09:51 | 只看該作者

回復 6# ericpeja

B1:右拉
=IFERROR(SMALL(SHEET1!$A:$A,COUNTIF(SHEET1!$A:$A,"<="&N(A1))+1),"")
B2:右拉
=IF(B1="","",VLOOKUP(B1,SHEET1!$A:$E,5,))
B3:右拉/下拉
=iferror(IF(LOOKUP(9^9,((INDEX(SHEET1!$C$1:$D$199,,ROW($A1))&"")+1%)/(SHEET1!$A$1:$A$199=B$1))<60,"否","是"),"")

TOP

ericpeja

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: WIN 8
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2019-7-20
最後登錄: 2020-9-6

6^#

發表於 2019-11-12 17:18 | 只看該作者

回復 5# 准提部林

非常感謝您的幫忙
但我使用函數後結果為結果與我想要的不太一樣
可能是我敘述的不夠完整
我想把sheet 1的A行直接轉為sheet2的第1列(學生號碼不可重覆1,2,3,4,5,6,7,8,9,10)
補考及格並不代表過關(您給的好像是補考1或補考2有過就算過關)

我附上我欲想修改的狀況

我附上我欲想修改的狀況

Sheet1的A行僅取第一筆學生號碼(不論補考)然後在Sheet2的第2行對比其過關結果
如需補考1(不過關)之學生號碼的第二筆資料對應Sheet2的第3行
最後補考2(不過關)之學生號碼的第三筆資料對應Sheet2的第3行
請問這樣是否還有辦法解呢???
感激不盡

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

5^#

發表於 2019-11-12 12:00 | 只看該作者

SHEET2
B2:右拉
=LOOKUP(1,0/(SHEET1!$A$1:$A$199=B$1),SHEET1!$E:$E)

B3:右拉/下拉
=iferror(IF(LOOKUP(9^9,((INDEX(SHEET1!$C$1:$D$199,,ROW($A1))&"")+1%)/(SHEET1!$A$1:$A$199=B$1))<60,"否","是"),"")

TOP

hcm19522