Private Sub UserForm_Initialize()

'最終行 - データの開始行 = 件数
TextBox1.Text = Cells(65536, "B").End(xlUp).Row - 9 & "件" '件数



End Sub