'コンボボタンのトッブ

Private Sub UserForm_Initialize()
    Dim lastrow As Long
    Dim i As Long
Workbooks.Open Filename:=ThisWorkbook.Path & "\データ物質試薬管理.xls"
Sheets("shinki").Select    
    '最終行を取得
    lastrow = ActiveSheet.Range("B65536").End(xlUp).Row
   
    'リストをクリア
    ComboBox1.Clear
    For i = 2 To lastrow
        ComboBox1.AddItem Cells(i, 2)
    Next
   
    Cells(8, 1) = UserForm10.ComboBox1.Value
    'Cells(行, 列) = UserForm10.TextBox1.Value
    UserForm10.TextBox1 = Cells(8, 1).Value 
Workbooks("データ物質試薬管理.xls").Close savechanges:=True

End Sub