Private Sub CommandButton1_Click()
Dim value As String
Dim arow As Integer
Dim aline As Integer
value = Application.ActiveSheet.TextBox1
aline = Application.ActiveSheet.TextBox2
Dim str As String
Dim outStr As String
For iloop = 1 To 8
'使用excel函数时候必须WorksheetFunction
'16进制转2进制方法Hex2Bin
str = Application.WorksheetFunction.Hex2Bin(Mid(value, iloop, 1))
'字符串左补0操作 0->0000
outStr = outStr + Format(str, "0000")
Next
For iloop = 2 To 33
ActiveSheet.Cells(aline, iloop).value = Mid(outStr, iloop - 1, 1)
Next
Dim value As String
Dim arow As Integer
Dim aline As Integer
value = Application.ActiveSheet.TextBox1
aline = Application.ActiveSheet.TextBox2
Dim str As String
Dim outStr As String
For iloop = 1 To 8
'使用excel函数时候必须WorksheetFunction
'16进制转2进制方法Hex2Bin
str = Application.WorksheetFunction.Hex2Bin(Mid(value, iloop, 1))
'字符串左补0操作 0->0000
outStr = outStr + Format(str, "0000")
Next
For iloop = 2 To 33
ActiveSheet.Cells(aline, iloop).value = Mid(outStr, iloop - 1, 1)
Next
End Sub