select case 的用法

請問使用select case  後若為字串，是否可以抓"含有"特定字串？
Select Case Sheets(1).Cells(i, 3).Value
         Case "aa"
         '''''''''''''''''''''''''''''''''''''

樓主熱帖

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

2^#

發表於 2013-7-29 16:55 | 顯示全部帖子

謝謝-stillfish00 ，ok了！
不過，可以再追加一個問題嗎？
怎麼把第二個迴圈與第一個一起寫進去，我搞好久了
Dim  aa As String
Dim row1, row2, row3, i, o, k, j As Integer

row1 = Sheets("1").Range("a65536").End(xlUp).Row
row2 = Sheets("2").Range("a65536").End(xlUp).Row
For i = 2 To row2
aa = Sheets("2").Cells(i, 3).Value
Select Case True
   Case aa Like "*成交*"
               Sheets("3").Select
               row3 = Range("a65536").End(xlUp).Row
               k = row3 + 1
               Sheets("3").Cells(k, 1).Value = Sheets("2").Cells(i, 3)
               Sheets("3").Cells(k, 2).Value = Sheets("2").Cells(i, 11)
               Sheets("3").Cells(k, 3).Value = Sheets("2").Cells(i, 10)
               Sheets("3").Cells(k, 4).Value = Sheets("2").Cells(i, 25)

End Select
Next

----------------------------------------------------------
row1 = Sheets("1").Range("a65536").End(xlUp).Row
row2 = Sheets("2").Range("a65536").End(xlUp).Row
For j = 2 To row2
For i = 2 To row1
If Sheets("3").Cells(j, 4) = Sheets("1").Cells(i, 2) _
      And Sheets("3").Cells(j, 2) = Sheets("1").Cells(i, 25) Then
      Sheets("3").Cells(j, 5).Value = Sheets("1").Cells(i, 5)
   Exit For
End If
Next
Next

TOP

eric093