Public Function MinRow(ByVal vSheet As Variant) As Integer ‘\u6709\u5185\u5bb9\u7684\u6700\u5c0f\u884c\u53f7
MinRow = -1
On Error Resume Next
If vSheet Is Nothing Then Exit Function
vSheet.Activate
MinRow = vSheet.UsedRange.Rows(vSheet.UsedRange.Rows.Count).Row – vSheet.UsedRange.Rows.Count + 1
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function MaxRow(ByVal vSheet As Variant) As Integer ‘\u6709\u5185\u5bb9\u7684\u6700\u5927\u884c\u53f7
MaxRow = -1
On Error Resume Next
If vSheet Is Nothing Then Exit Function
vSheet.Activate
MaxRow = vSheet.UsedRange.Rows(vSheet.UsedRange.Rows.Count).Row
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function MinColumn(ByVal vSheet As Variant) As Integer ‘\u6709\u5185\u5bb9\u7684\u6700\u5c0f\u5217\u53f7
MinColumn = -1
On Error Resume Next
If vSheet Is Nothing Then Exit Function
vSheet.Activate
MinColumn = vSheet.UsedRange.Columns(vSheet.UsedRange.Columns.Count).Column – vSheet.UsedRange.Columns.Count + 1
‘vSheet.Cells.Find(“*”, , , , 2, 1).Column \u540c
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function MaxColumn(ByVal vSheet As Variant) As Integer ‘\u6709\u5185\u5bb9\u7684\u6700\u5927\u5217\u53f7
MaxColumn = -1
On Error Resume Next
If vSheet Is Nothing Then Exit Function
vSheet.Activate
MaxColumn = vSheet.UsedRange.Columns(vSheet.UsedRange.Columns.Count).Column
‘vSheet.Cells.Find(“*”, , , , 2, 2).Column \u540c
If Err.Number <> 0 Then Call SaveOccurredErr(1)
If Not ExposeError Then On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function SheetExist(ByVal vBook As Variant, ByVal sSheet As String) As Boolean ‘\u5f53\u524d WorkBook \u4e4b Sheet \u5b58\u5728
On Error Resume Next
Dim I As Integer, J As Integer
SheetExist = False
If vBook Is Nothing Then Exit Function
‘If vSheet Is Nothing Then Exit Function
For I = 1 To vBook.Sheets.Count
If vBook.Sheets(I).Name = sSheet Then SheetExist = True
Next I
If Err.Number <> 0 Then SheetExist = False
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function GetColumnNumber(ByVal vSheet As Variant, ByVal sData As String, ByVal iRow As Integer) As Integer ‘\u786e\u5b9a\u6570\u636e\u5728\u67d0\u884c\u7684\u54ea\u4e00\u5217,\u5982\u679c\u4e0d\u5b58\u5728\u5219\u6307\u5411\u65b0\u5217
Dim I As Integer, J As Integer
GetColumnNumber = 0
If vSheet Is Nothing Then Exit Function
vSheet.Activate
For J = MinColumn(vSheet) To MaxColumn(vSheet)
If sData = vSheet.Cells(iRow, J) Then GetColumnNumber = J
Next J
If GetColumnNumber = 0 Then GetColumnNumber = MaxColumn(vSheet) + 1
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"