我想让我的程序运行2个工作簿和3个工作表。为我验证一些数字。编译错误:无效的限定符
Sub Validate_Old_Data()
Dim DBLbrow As Double
Dim DBLAbrow As Double
Dim DBLBbrow As Double
Dim STRname As String
Dim INTcc As Integer
Dim CopyRange As Range
DBLbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Do While BDLbrow > 5
STRname = Range("B" & DBLbrow).Value
INTcc = Range("C" & DBLbrow).Value
Workbooks("Z:\Centralized Charges\Centralized Charges 2015\Forecast and Actuals\P3\Headcount Templates\P3 Centralized Charges Headcount Tracker (vs. 2015 Budget).xlsx").Activate
Worksheets(INTcc).Activate
DBLAbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Do While DBLAbrow > 8
If Range("B" & DBLAbrow).Value = STRname Then
CopyRange = Range(DBLAbrow).Row.Copy
Workbooks("Z:\Centralized Charges\Centralized Charges 2015\Forecast and Actuals\P3\Headcount Templates\Charges Headcount Tracker (vs. 2015 Budget).xlsm").activatae
Worksheets(INTcc).activatae
DBLBbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If Range("B" & DBLBbrow).Value = STRname Then
Range(DBLbrow).Value = CopyRange
Else
DBLBbrow = DBLBbrow - 1
End If
Loop
Else
DBLAbrow = DBLAbrow - 1
End If
Loop
BDLbrow = BDLbrow - 1
End Sub
但我正在一个无效预选赛错误,有人可以解释为什么?
你可以多说一点你想用这段代码做什么吗?也许缩小到一个更小的块。 –
哪条线停在? – Sam
它停在第一行......我从来没有遇到过这个问题。此代码的目的是循环遍历列表,在电子表格B中找到相应的值,然后将所有数据返回给电子表格A。 –