eyunkeji

摘要： Sub 限行列和随机加墙版() Dim nRows As Long, nCols As Long, nLastRow As Long, tmpSum As Long, tmpRow As Long, r As Long, c As Long Dim sumRows() As Long, nRowSk 阅读全文

摘要： Sub 限行列和随机() Dim vArr() As Variant vArr = Range("A2").CurrentRegion.Value rndArrLmtSumLng2D vArr Range("A1").Resize(UBound(vArr), UBound(vArr, 2)).Val 阅读全文