Sub fun1() '统计每一个sheet有多少行数据 Set s1 = Sheets("Sheet1") 'totalok = 0 To Sheets.Count s1.Cells(i, ) = Sheets(i).Name r = Sheets(i).Range("A65535").End(xlUp).Row s1.Cells(i, ) = r Then totalok = totalok + r End If Next s1.Cells(, ) = tota
方法一: var detailT= grid.gettable("11"); var r=detailT.rows.length; detailT.rows[r-1].cells[3].innerHTML=0; var colSum=gridreport_getsum(grid, "saleqty"); detailT.rows[r-1].cells[3].innerHTML="<div style='width:100%;text-align:ri
最近公司HR和Finance想算员工的工作天数,想让我帮忙写些VBA,自己从网上找了下代码,自己再改改,以下来自网络. 计算两个日期之间的工作日,用VBA,因量大,最好用数组做 Sub kk() Dim arr, i&, j&, m& arr = Sheet2.Range("b3:f4") To UBound(arr) m = ) ) Next arr(i, ) = m Next Sheet2.Range() = arr End Sub 根据他提供的方法,其实就
1 把Excel某一区域的内容读入到数组中: Dim strArray() As Variant Dim wk_data As Variant Set wk_data = Sheets("Sheet1") strArray = wk_data.Range("A1:CV100").Value 2 把数组的内容写入到Excel中 wk_data.Range("A1").Resize(UBound(strArray, 1), UBound(strA