- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
|
4#
發表於 2011-12-11 22:30
| 只看該作者
本帖最後由 register313 於 2011-12-11 22:50 編輯
回復 3# tonycho33
有註解的4個儲存格 回傳值不知是否正確- Sub zz()
- Sheets("Sheet1").Select
- Range("K6:AH17").ClearContents
- For I = 6 To 16 Step 2
- W = 11
- For J = 6 To 16 Step 2
- For K = 4 To 7
- If Cells(I, 10) = Cells(J + 1, K) Then
- Cells(I, W) = Cells(J, 3)
- S = Cells(J, 3) & Cells(J, K)
- For T = 22 To 47
- If S = Cells(T, 8) Then
- Cells(I + 1, W) = Cells(T, 9)
- W = W + 1
- GoTo 123
- End If
- Next T
- If Cells(I + 1, W) = "" Then
- Cells(I + 1, W) = 0
- W = W + 1
- End If
- End If
- 123:
- Next K
- Next J
- Next I
- End Sub
複製代碼 |
-
-
轉置排序1.zip
(9.82 KB)
|