標題: [發問] For...Next 問題 [打印本頁]

---

作者: child    時間: 2011-8-23 19:30     標題: For...Next 問題

原本利用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

---

作者: oobird    時間: 2011-8-23 22:04

1. Sub Macro1()
   
2. Set c = [C2:C6]
   
3.     For k = 2 To Sheet1.[A65535].End(xlUp).Row
   
4.     i = Application.Match(Cells(k, 2), c, 0)
   
5.     If Err.Number = 0 Then
   
6. Cells(k, 1).Copy Cells(65536, i + 3).End(3)(2, 1)
   
7. End If
   
8.     Next
   
9. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)