- 帖子
- 38
- 主題
- 20
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TAIWAN
- 註冊時間
- 2010-5-10
- 最後登錄
- 2019-2-15
|
原本利用For...Next + IF 判斷式將Sheet1.Cells(k, 2)的值依條件轉置至其他欄位，但因IF的條件式變成動態，若將條件資料放置C欄儲存格，
請教如何利用For迴圈(C欄判斷值)取代原本的IF 判斷式，將符合資料依序轉置其他欄位，詳細資料如附件。很謝謝大家的幫忙^^
Sub Macro1()
For k = 2 To Sheet1.[A65535].End(xlUp).Row
If Sheet1.Cells(k, 2) = "A" Then
Sheet1.Cells(k, 1).Copy _
Destination:=Sheet1.Range("D65536").End(xlUp).Offset(1)
End If
If Sheet1.Cells(k, 2) = "B" Then
Sheet1.Cells(k, 1).Copy _
Destination:=Sheet1.Range("E65536").End(xlUp).Offset(1)
End If
If Sheet1.Cells(k, 2) = "C" Then
Sheet1.Cells(k, 1).Copy _
Destination:=Sheet1.Range("F65536").End(xlUp).Offset(1)
End If
Next |
-
-
TEST.zip
(6.69 KB)
|
發表於 2011-8-23 19:30
| 
