Private Sub Command1_Click()
Dim strClip As String '粘贴板的数据
Dim intFristChr_13 As Integer 'chr(13)的第一次出现位置
Dim intCols As Integer '第一列 chr(9)的个数,代表列数
Dim intRows As Integer '行数
strClip = Clipboard.GetText
'取第一次chr(13)的位置
intFristVbCrLf = InStr(1, strClip, Chr(13))
Debug.Print intFristVbCrLf
'计算开始到第一次chr(13)之间的chr(9)
Dim strFirstRow As String
strFirstRow = Left(strClip, intFristVbCrLf)
intCols = Len(strFirstRow) - Len(Replace(strFirstRow, Chr(9), ""))
Debug.Print intCols
intRows = Len(strClip) - Len(Replace(strClip, Chr(13), ""))
With Me.vsf1
.Cell(flexcpText, .Row, .Col, .Row + intRows, .Col + intCols) = strClip
End With
End Sub