[發問] 尋找連續的儲存格

an13755

各位大師前輩好

    小女子又來麻煩各位了,工作表a要尋找連續的儲存格

    尋找範圍a1:h99,皆為01~99的數字,找到的每1組依序從L1貼上

    為方便大家觀察,小女子已先將要找的地方塗成黃色

    並用人工做成工作表b,即要把工作表a變成工作表b

      還請各位大師前輩幫忙,謝謝!! line1.rar (2.58 KB)

下載次數: 14

2011-3-13 16:40

an13755

donald大真是高手,完全解決我的問題

您幫了我1各大忙,非常感謝,謝謝!!

對了,請問  End(4) <>   是什麼意思呢??謝謝!!

GBKEE

回復 3# an13755
VBA的說明
End 屬性
請參閱套用至範例特定傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵、END+向下鍵、END+向左鍵或 END+向右鍵。唯讀 Range 物件。
expression.End(Direction)
expression    必選。此運算式會傳回 [套用至] 清單中的其中一個物件。
Direction    必選的 XlDirection。要移往的方向。
XlDirection 可以是這些 XlDirection 常數之一。
xlDown     ->4
xlToRight  ->2
xlToLeft    ->1
xlUp         ->3

1. Sub Ex()
   
2.     MsgBox Range("B10").End(xlToLeft).Address
   
3.     MsgBox Range("B10").End(1).Address
   
4.    
   
5.     MsgBox Range("B10").End(xlToRight).Address
   
6.     MsgBox Range("B10").End(2).Address
   
7.    
   
8.     MsgBox Range("B10").End(xlUp).Address
   
9.     MsgBox Range("B10").End(3).Address
   
10.    
    
11.     MsgBox Range("B10").End(xlDown).Address
    
12.     MsgBox Range("B10").End(4).Address
    
13.    
    
14. End Sub

複製代碼

GBKEE

回復 1# an13755

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range, R, C
   
3.     Set Rng(1) = [a1:h99]
   
4.     Set Rng(2) = [L1]
   
5.     For Each C In Rng(1).Columns
   
6.         For Each R In C.SpecialCells(xlCellTypeConstants).Areas
   
7.             If R.Cells.Count >= 2 Then
   
8.                 Rng(2).Resize(R.Cells.Count) = R.Value
   
9.                 Set Rng(2) = Rng(2).Offset(, 1)
   
10.             End If
    
11.         Next
    
12.     Next
    
13. End Sub

複製代碼

an13755

感謝donald大及GBKEE大的指導

你們真是初學者的良師,謝謝!!