Excel Vba：選擇和趨勢例程

Question

所以我有一張這樣的桌子，假設潮汐高度為B1：

Tidal Time  Tidal Height
00:00:00    4.40
01:00:00    
02:00:00    
03:00:00    
04:00:00    
05:00:00    
06:00:00    2.00
07:00:00    2.50
08:00:00    3.00
09:00:00    3.50
10:00:00    4.00
11:00:00    4.50
12:00:00    
13:00:00    
14:00:00    
15:00:00    
16:00:00    
17:00:00    
18:00:00    2.10
19:00:00    2.56
20:00:00    3.02
21:00:00    3.48
22:00:00    3.94
23:00:00    4.40

所以我需要這樣做：

第一步：從B2中選擇第一個被占用的單元格，然后選擇直到（包括）下一個被占用的單元格。 然后運行以下代碼：

RangeToFill.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Trend:=True

第二步：取消選擇，然后繼續並選擇下一個空單元格之前的單元格。 選擇直到（包括）下一個占用的單元格。 然后運行上面的趨勢代碼。

我可以手動完成此操作，但是我不確定如何將這樣的過程自動化，以考慮到不同位置上不斷變化的數據集。 任何幫助將不勝感激！

Answer 1

Dim Bounds As Range
Set Bounds = Range("A1").CurrentRegion

Dim c As Range
Set c = Range("B2")

Do While c.Row < Bounds.Rows(Bounds.Rows.Count).Row
  If IsEmpty(c.Offset(1, 0).Value) Then
    Dim RangeToFill As Range
    Set RangeToFill = Application.Intersect(Range(c, c.End(xlDown)), Bounds)

    RangeToFill.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Trend:=True
    Set c = RangeToFill.Cells(RangeToFill.Cells.Count)
  Else
    Set c = c.End(xlDown)
  End If
Loop