说明: Dim i As Integer Dim j As Integer Dim sum As Integer Dim beginrow As Integer Dim str As String Dim GetPy As String sum = ActiveWindow.RangeSelection.Rows.Count For Each rng In ActiveWindow.RangeSelection.Areas For Each cel In rng str = cel.Value Get
<lujkhua> 上传 | 大小:3kb