目前遇到一個尷尬的問題是,數據在未平倉量總表的地方並不會自動偵測最後一行資料往下代入
只會代入第一天的數據,後面就會一直覆寫
我該如何修改?求解
匯入按鈕程式碼如下
Private Sub CommandButton2_Click()
Dim a As String
Dim b As String
Dim c As String
Dim h As String
a = Cells(3, 1).Value-----------外資未平倉量
b = Cells(3, 2).Value-----------投信未平倉量
c = Cells(3, 3).Value-----------自營商未平倉量
Worksheets("未平倉量總表").Select
h = Range("B1").End(xlDown).Row
Sheets("未平倉量總表").Cells(h, "B") = a
Sheets("未平倉量總表").Cells(h, "C") = b
Sheets("未平倉量總表").Cells(h, "D") = c
End Sub

