‘OptionExplicit’ConstsheetNameAsString=”电脑中心”PrivateSubCommandButton1_Click()SubCommandButton1_Click()ActiveCell.EntireRow.DeleteEndSubPrivateSubCommandButton2_Click()SubCommandButton2_Click()DimminYDimmaxYminY=Selection.RowmaxY=Selection.Rows.Count+Selection.Row-1’从光标所在的行到另一个指定的行’ActiveWorkbook.Worksheets(“sheetName”).Range(“A”&CStr(minY),”A”&CStr(maxY)).EntireRow.DeleteActiveSheet.Range(“A”&CStr(minY),”A”&CStr(maxY)).EntireRow.DeleteEndSubPrivateSubCommandButton3_Click()SubCommandButton3_Click()’TextBox1.Text=ActiveCell.RowTextBox1.Text=Selection.RowTextBox2.Text=Selection.Rows.Count+Selection.Row-1EndSubPrivateSubCommandButton4_Click()SubCommandButton4_Click()DimrDimx,yr=TxtRow.TextDimi’隔r行删除一行x=Selection.Rowy=Selection.Rows.Count+Selection.Row-1Fori=xToyi=i+r-1’ActiveWorkbook.Worksheets(“sheetName”).Range(“A”&i,”A”&i).EntireRow.DeleteActiveSheet.Range(“A”&i,”A”&i).EntireRow.DeleteNextiEndSub精典之作：
”””””””””””””””””””””””””””””””copy这里的代码”1.将宏的安全设置改为最低Excel菜单–>工具–>宏–>安全”2.请将控制复制到所需的页面.”3.打开编辑器的设计模式”4.将各控制改名为代码相应的名字,右击控件－－＞properties–>Name””—->a. 要删除的行数控件名TxtDel””—->b. 间隔行数控件名TxtRow””—->c. 起始行控件名TxtStart””—->d. 终止行控件名TxtEnd””—->e. 执行按钮控件名CBtnExecute”5.退出设计模式。OK了.”””””””””””””””PrivateSubCBtnExecute_Click()SubCBtnExecute_Click()DimrDimx,yDimiDimdr=TxtRow.Text’隔r行删除d行输入行号–行号d=TxtDel.Text-1x=TxtStart.Text+CInt(r)y=TxtEnd.TextFori=xToyStepr’ActiveWorkbook.Worksheets(“sheetName”).Range(“A”&i,”A”&i).EntireRow.DeleteActiveSheet.Range(“A”&i,”A”&i+d).EntireRow.DeleteNextiEndSub””””””””””””””””””””””””””
http://txw100.com/
http://swbaidu.com/http://txnwt.com/一个今天胜过两个明天
