用VBA对excel中的数据进行操作的问题

2026年09月08日 21:53
有3个网友回答
网友(1):

Private Sub CommandButton1_Click()
amax = Application.Max(Sheets("数据2").Range("B2:G6"))
Set Ra = Sheets("数据2").Range("B2:G6").Find(amax, , , 1)
Ra.Value = Ra.Value - 1
End Sub

网友(2):

代码与文字描述不匹配,没法改进。

网友(3):

这是从哪copy过来的,乱码七糟