EXCEL - VBA 自動偵測設計

Public Sub 比對()
Range("A1").Select
While (ActiveCell.Value <> Empty)
ActiveCell.Offset(1, 0).Select
Wend


End Sub

Public Sub 單一比()

Sheets(1).Select
x = ActiveCell.Value

Sheets(2).Select
x1 = ActiveCell.Value
If x = x1 Then

取值
Else

ActiveCell.Offset(1, 0).Select

End If





End Sub

Public Sub 連續比()

Sheets(2).Select

x = ActiveCell.Value

Sheets(1).Select
Range("a1").Select
While (ActiveCell.Value <> Empty)
x1 = ActiveCell.Value

If x = x1 Then

取值

Else
ActiveCell.Offset(1, 0).Select
End If


Wend



End Sub


Public Sub 再比()
連續比
Sheets(2).Select
ActiveCell.Offset(1, 0).Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> Empty Then
連續比
Sheets(2).Select
ActiveCell.Offset(1, 0).Select

Else
Sheets(2).Select
ActiveCell.Offset(1, 0).Select
End If


Wend

End Sub

Public Sub 取值()
i = 0
While (ActiveCell.Value <> Empty)

Sheets(1).Select
x = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Sheets("ans").Select
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
Sheets(1).Select
i = i + 1
Wend
Sheets(3).Select
ActiveCell.Offset(1, -i).Select

Sheets(1).Select
ActiveCell.Offset(1, -i).Select



End Sub