Question

我在使用Range功能时遇到了问题。（几乎）完成了以下代码。我对VBA很新，所以如果你有时间，请解释一下基础知识。这是给我一个调试错误的行：

Set CombinedPropRange = ThisWorkbook.Worksheets("PropFiltered").Range("A" & _ 
  PropACount & ":J" & SplitTabName(2))

下面的完整代码：

Sub FillTabsTest()
' FillTabsTest Macro

HowManyTabsDoYouNeed = 4 'If you want to add or remove Tabs, you must change this number AND add/subtract from the "TabName(1)" section below.

ReDim TabName(1 To HowManyTabsDoYouNeed) As String

'Grabs Data from Original Workbook and creates a new Workbook.
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A1:P1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Call WrapText


TabName(1) = "April H.,0,1000"
TabName(2) = "Christopher H.,0,1000"
TabName(3) = "Christie E.,500,500"
TabName(4) = "Cori M.,500,500"

    'Places Filtered Auto Events on its own tab
Sheets("Sheet1").Select
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A:$S").AutoFilter Field:=8, Criteria1:="=COMAUTO", _
    Operator:=xlOr, Criteria2:="=PERSAUTO"
ActiveSheet.Range("$A:$S").AutoFilter Field:=5, Criteria1:="=3*", Operator _
    :=xlAnd
ActiveSheet.Range("$A:$S").AutoFilter Field:=9, Criteria1:=Array( _
    "AUTO BODILY INJURY", "AUTO MED PAY", "AUTO PROPERTY DAMAGE", "AUTO-ENDORSEMENT", _
    "AUTO-OTHER", "BODILY INJURY", "COLLISION", "COMPREHENSIVE", "LIABILITY", "OTHER", _
    "RENTAL REIMBURSEMENT", "UM/UIM"), Operator:=xlFilterValues
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "AutoFiltered"
ActiveSheet.Paste

'Places Filtered Property Events on its own tab
Sheets("Sheet1").Select
Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Cells.Select
ActiveSheet.Range("$A:$S").AutoFilter Field:=8, Criteria1:="=COMPROP", _
    Operator:=xlOr, Criteria2:="=PLPROP"
ActiveSheet.Range("$A:$S").AutoFilter Field:=5, Criteria1:="=3*", Operator _
    :=xlAnd
ActiveSheet.Range("$A:$S").AutoFilter Field:=12, Criteria1:="<>*FIRE*", _
    Operator:=xlOr, Criteria2:="<>*SMOKE*"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "PropFiltered"
ActiveSheet.Paste




'Begin adding the above named tabs to the workbook
For i = 1 To HowManyTabsDoYouNeed
    Sheets.Add After:=Sheets(Sheets.Count)
    SplitTabName = Split(TabName(i), ",")
    ActiveSheet.Name = SplitTabName(0)
Next i

 'Begin populating employee's sheets.

Dim AutoACount As Integer
Dim PropACount As Integer
' Dim AutoAPasteCount As Integer
Dim PropAPasteCount As Integer
Dim AutoJCount As Integer
Dim PropJCount As Integer
'Dim AutoRangeA As Range
'Dim AutoRangeJ As Range
'Dim PropRangeA As Range
'Dim PropRangeJ As Range
Dim PropAPasteCountRange As String
Dim CombinedPropRange As Range
Dim CombinedAutoRange As Range


AutoACount = 2
PropACount = 2
AutoJCount = 2
PropJCount = 2
PropAPasteCount = 2

For i = 1 To HowManyTabsDoYouNeed
    SplitTabName = Split(TabName(i), ",")
    If SplitTabName(1) <> "0" Then
       ' Set AutoRangeA = Range("A" & AutoACount)
       ' Set AutoRangeJ = Range("J" & SplitTabName(1))
        Sheets("AutoFiltered").Select
        Set CombinedAutoRange = ThisWorkbook.Worksheets("AutoFiltered").Range("A" & AutoACount & ":J" & SplitTabName(1))
        CombinedAutoRange.Copy
        Sheets("SplitTabName(0)").Select
        ActiveSheet.Paste
        AutoACount = AutoACount + SplitTabName(1)
        PropAPasteCount = SplitTabName(1)
    End If
    If SplitTabName(2) <> "0" Then
        'Set PropRangeA = Range("A" & PropACount)
        'MsgBox PropRangeA
        'Set PropRangeJ = Range("J" & SplitTabName(2))
        PropAPasteCountRange = "A" & PropAPasteCount
        'Sheets("PropFiltered").Select
        Set CombinedPropRange = ThisWorkbook.Worksheets     ("PropFiltered").Range("A" & PropACount & ":J" & SplitTabName(2))
        CombinedPropRange.Copy
        Sheets("SplitTabName(0)").Select
        ThisWorkbook.Worksheets(SplitTabName(0)).Cells(PropAPasteCountRange).Select
        ActiveSheet.Paste
        PropACount = PropACount + SplitTabName(2)
    End If
Next i

End

从多个变量设置excel VBA Range

0 个答案: