日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：删除空白列代码，汇总变量J列

Sub 删除空白列代码() Application.ScreenUpdating = False &nbsp;&nbsp; For i = 1 To 50&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '删除第一行“剩余课时”列 &nbsp;&nbsp;&nbsp; If Cells(1, i) = "剩余课时" Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Columns(i).Delete &nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '删除“剩余课时列代码结束&nbsp;Dim iC&amp;, x&amp; &nbsp;iC = Cells(1, 256).End(xlToLeft).Column &nbsp;For x = iC To 1 Step -1 &nbsp;If Cells(3, x) = "" And Cells(4, x) = "" And Cells(5, x) = "" And Cells(6, x) = "" And Cells(7, x) = "" And Cells(4, x) = "" And Cells(5, x) = "" And Cells(8, x) = "" And Cells(9, x) = "" And Cells(10, x) = "" And Cells(11, x) = "" And Cells(12, x) = "" And Cells(13, x) = "" And Cells(14, x) = "" And Cells(15, x) = "" And Cells(16, x) = "" And Cells(17, x) = "" And Cells(18, x) = "" Then Columns(x).DeleteNext xFor j = 1 To 40&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '寻找“已上课时”列的循环 &nbsp;&nbsp;&nbsp; If Cells(1, j) = "已上课时" Then &nbsp;&nbsp;&nbsp; ii = Range("A65536").End(xlUp).Row() + 1 '定位到A列最后一行的下一行，ii &nbsp;&nbsp;&nbsp; For iii = 3 To Range("A65536").End(xlUp).Row() &nbsp;&nbsp;&nbsp;&nbsp; Cells(ii, j - 1) = "合计：" &nbsp;&nbsp;&nbsp;&nbsp; Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '列汇总 &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp; End If &nbsp; Next Application.ScreenUpdating = True End Sub<hr>&nbsp;Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '列汇总这句是汇总变量J列的代码，也要给iii赋值：For iii = 3 To Range("A65536").End(xlUp).Row() <hr>