excel代码问题

Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If [c5] = "" Then[d5] = ""End IfIf [c5] > 1825 And [c5] <= 4375 Then[d5] = ([c5] - 2125) / 0.85End IfIf [c5] > 4375 And [c5] <= 16375 Then[d5] = ([c5] - 2375) / 0.8End IfIf [c5] > 16375 And [c5] <= 31375 Then[d5] = ([c5] - 3375) / 0.75End IfIf [c5] > 31375 And [c5] <= 45375 Then[d5] = ([c5] - 5375) / 0.7End IfIf [c5] > 45375 And [c5] <= 58375 Then[d5] = ([c5] - 8375) / 0.65End IfIf [c5] > 58375 And [c5] <= 70375 Then[d5] = ([c5] - 12375) / 0.6End IfIf [c5] > 70375 Then[d5] = ([c5] - 17375) / 0.55End If这段代码涉及到C5和D5两个单元格，我想在C6到C100和D6到D100得到同样的效果（代码相同的，只是单元格不同），如何实现？？？？谢谢！！！

Answer 1

将代码改为如下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim j As Integer
i = Target.Row
j = Target.Column
If i >= 5 And i <= 100 And j = 3 Then
If Cells(i, j) = "" Then
Cells(i, j + 1) = ""
End If
If Cells(i, j) > 1825 And Cells(i, j) <= 4375 Then
Cells(i, j + 1) = (Cells(i, j) - 2125) / 0.85
End If
If Cells(i, j) > 4375 And Cells(i, j) <= 16375 Then
Cells(i, j + 1) = (Cells(i, j) - 2375) / 0.8
End If
If Cells(i, j) > 16375 And Cells(i, j) <= 31375 Then
Cells(i, j + 1) = (Cells(i, j) - 3375) / 0.75
End If If Cells(i, j) > 31375 And Cells(i, j) <= 45375 Then
Cells(i, j + 1) = (Cells(i, j) - 5375) / 0.7
End If
If Cells(i, j) > 45375 And Cells(i, j) <= 58375 Then
Cells(i, j + 1) = (Cells(i, j) - 8375) / 0.65
End If
If Cells(i, j) > 58375 And Cells(i, j) <= 70375 Then
Cells(i, j + 1) = (Cells(i, j) - 12375) / 0.6
End If
If Cells(i, j) > 70375 Then
Cells(i, j + 1) = (Cells(i, j) - 17375) / 0.55
End If
End If
End Sub追问

谢谢老师了，能解决，但为啥不能自动得出结果，要点下C5单元格的数据才能得出D5单元格的结果。