如图，当鼠标选中B1:B4时，运行代码，在C1:C4生成结果，以此类推，如果鼠标选择B1:B2,则：C1=A/1,C2=B/2补充:A列数据没有规律的。
sub ygb()
dim r as range
for each r in selection.cells
r.offset(0,1)=r.offset(0,-1) / r.column
next r
end sub追é®
dim r as range
for each r in selection.cells
r.offset(0,1)=r.offset(0,-1) / r.column
next r
end sub追é®
è¿è¡æ¶é误ï¼ç±»åä¸å¹é åï¼ï¼
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-07-10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
c = Selection.Row
cs = Selection.Rows.Count
For i = c To c + cs - 1
Cells(i, 3) = Cells(i, 1) / i
Next
End If
End Sub追问
If Target.Column = 2 Then
c = Selection.Row
cs = Selection.Rows.Count
For i = c To c + cs - 1
Cells(i, 3) = Cells(i, 1) / i
Next
End If
End Sub追问
能在模块中吗？我需要手动运行的，谢谢
追答将第一行改为sub 就行了。
你的要求是针对第二列，楼上的解是针对任何的一列。
我不知道是你表述错误，还是我看错了？
还有楼上的解是除以列序号，而你要求的是除以行序号，是不是又是我看错了？
