Sub test1() Dim h Dim j As Integer j = 0 Dim n1 As Integer '分行单元格在第几列 Dim m1 As Integer '填充到的列 Dim p As Integer '所有内容的列数 n1 = 1 m1 = 2 p = 4 'Application.ScreenUpdating = False 'For i = 1 To Range("a65536").End(x
function getTdValue(a) { var tableId = document.getElementById("tab"); var num; for(var i=0;i<tableId.rows.length;i++) { var num=Number(str)+Number(tableId.rows[i].cells[a].innerHTML); } console.log(num); } getTdValue(a);
Sub W() ' MsgBox "行数:" & Selection.Rows.Count Dim rows_count As Integer Dim rows_id As Integer Dim column_count As Integer column_count = Selection.Columns.Count '获取选择区域的列数 'MsgBox column_count '打印列数 rows_id = ActiveCell.