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 - 1End Sub
代码与文字描述不匹配,没法改进。
这是从哪copy过来的,乱码七糟