如何使excel vba运行在几个工作表上

我有一个从Excel的信息，我想要做的是search从点a到点b和从点b到点a的距离和时间。 然后我想在这个比较之间插入一个较小的值。

我实际上有一个代码工作，但它只能search一个工作表。 我有4个工作表的数据，我需要确保每个条目search超过4个工作表。 代码如下;

Sub CorrectTable() Sheet1.Columns(4).Cells.ClearContents For i = 1 To Sheet1.UsedRange.Rows.Count Dim o_d, o, d As String o_d = Sheet1.Cells(i, 1).Value o = getO(o_d) d = getD(o_d) If Not (o = "") And Not (d = "") Then Dim d_o As String d_0 = d & "." & o Dim od_time, od_dist As Double od_time = Sheet1.Cells(i, 2).Value od_dist = Sheet1.Cells(i, 3).Value For j = i + 1 To Sheet1.UsedRange.Rows.Count If Sheet1.Cells(j, 1).Value = d_0 Then Dim do_time, do_dist As Double do_time = Sheet1.Cells(j, 2).Value do_dist = Sheet1.Cells(j, 3).Value If od_time <= do_time Then Sheet1.Cells(j, 4).Value = i ElseIf do_time <= od_time Then Sheet1.Cells(i, 4).Value = j End If End If Next j End If Next i End Sub 

那么我怎样才能使这个代码search4个工作表，并find相应的条目？

谢谢

Answer 1

放置在j循环中：

 maxsheetlen=65000 If j > maxsheetlen Then Sheets(2).Cells(j-maxsheetlen, 4) = i Else Sheets(1).Cells(j,4) = i End if 'do for "ElseIf do_time <= od_time Then" option