营销式网站,网站建设吉金手指排名15,培训中心网站建设论文,隆昌移动网站建设‘删除Sheet1上的单元格区域A1:D10,并将其余单元格左移以填补被删除单元格的位置 Sheet1.Range(“A1:D10”).Delete Shift:xlShiftToLeft ‘删除指定行 Range(“1:1”).Delete ‘删除指定列 Columns(5).Delete ‘删除当前行 ActiveCell.EntireRow.Delete ‘删除工作表中的重复行…‘删除Sheet1上的单元格区域A1:D10,并将其余单元格左移以填补被删除单元格的位置 Sheet1.Range(“A1:D10”).Delete Shift:xlShiftToLeft   ‘删除指定行 Range(“1:1”).Delete   ‘删除指定列 Columns(5).Delete   ‘删除当前行 ActiveCell.EntireRow.Delete   ‘删除工作表中的重复行 Sub DeleteDupes(strSheetName as String,strColLetter as string)        Dim strColRange as String        Dim rngCurrentCell as Range        Dim rngNextCell as Range        strColRangestrColLetter “1” Worksheets(strSheetName).Range(strColRange).Sort Key1:Worksheets(strSheetName).Range(strColRange)        Set rngCurrentCellWorksheets(strSheetName).Range(strColRange)        Do While Not IsEmpty(rngCurrentCell)               Set rngNextCellrngCurrentCell.Offset(1,0)               If rngNextCell.ValuerngCurrentCell.Value Then                      rngCurrentCell.EntireRow.Delete               End If               Set rngCurrentCellrngNextCell        Loop End Sub   ‘删除自定义数字格式 Sub DeleteNumberFormat()        MsgBox “从当前工作簿中删除000-00-0000的数字格式”        ActiveWorkbook.DeleteNumberFormat(“000-00-0000”) End Sub   ‘清除内容 Sub ClearContents()        Selection.SpecialCells(xlCellTypeConstants,23).Select        Selection.ClearContents End Sub   ‘清除选定单元格的批注 Sub ClearComments()        Selection.SpecialCells(xlCellTypeComments,23).Select        Selection.ClearComments End Sub   ‘单元格的插入 ‘在数据表上的单元格区域A1:C5中插入新单元格并将该位置上原来的单元格向下移动 Sheet1.Range(“A1:C5”).Insert Shift:xlShiftDown   ‘在当前单元格上方插入行 Sub InsertRow() Dim rRow as Long MsgBox “在当前单元格上方插入一行” rRowSelection.Row ActiveSheet.Rows(Row).Insert End Sub   ‘在当前单元格所在列插入列 Sub InsertColumn()        Dim cColumn As Long        MsgBox “在当前单元格所在列的左边插入一列”        cColumnselection.Column        ActiveSheet.Columns(cColumn).Insert End Sub   ‘在当前单元格上方插入多行 Sub InsertManyRow()        MsgBox “在当前单元格所在行上插入三行”        Dim rRow as long ,I as long        For i1 to 3               rRowSelection.Row               ActvieSheet.Rows(rRow).Insert        Next i End Sub ‘在活动工作表的第1-3行处插入三行 Sub InsertRows()        MsgBox “在当前单元格所在行上方插入三行”        ActiveSheet.Rows(“1:3”).Insert End Sub   ‘隐藏当前单元格所在的行 Sub HideRow()        Dim iRow as Long        MsgBox “隐藏当前单元格所在的行”        iRowActiveCell.Row        ActiveSheet.Rows(iRow).HiddenTrue        MsgBox “取消隐藏”        ActiveSheet.Rows(iRow).HiddenFalse End Sub   ‘隐藏当前单元格所在的列 Sub HideColumn()        Dim iColumn as Long        MsgBox “隐藏当前单元格所在的列”        iColumn ActiveCell.Column        ActiveSheet.Rows(iColumn).HiddenTrue        MsgBox “取消隐藏”        ActiveSheet.Rows(iColumn).HiddenFalse End Sub   ‘设置当前所在单元格的行高 Sub SetRowHeight()        MsgBox “将当前单元格所在的行高设置为25”        Dim rRow As Long,iRow As Long        rRowActiveCell.Row        iRowActiveSheet.Rows(rRow).RowHeight        ActiveSheet.Rows(rRow).RowHeight25        MsgBox “恢复到原来的行高”        ActiveSheet.Rows(rRow).RowHeightiRow End Sub   ‘设置最合适的行高和列宽 Sub AutoFitRowCol()        Rows(“9:9”).Select        Selection.Rows.AutoFit        Columns(“B:D”).Select        Selection.Columns.AutoFit End Sub   ‘设置当前单元格的列宽 Sub SetColumnWidth()        MsgBox “将当前单元格所在列的列宽设置为20”        Dim cColumn As Long,iColumn As Long        cColumnActiveCell.Column        iColumnActiveSheet.Columns(cColumn).ColumnWidth        ActiveSheet.Columns(cColumn).ColumnWidth20        MsgBox “恢复至原来的列宽”        ActiveSheet.Columns(cColumn).ColumnWidth iColumn End Sub   ‘锁定A1:A5单元格 Range(“A1:A5”).LockedTrue   ‘接除对Sheet1中A1:G37区域单元格的锁定以便当该工作表受保护时也可以对这些单元格进行修改 Sub UnlockedCell()        Worksheets(“Sheet1”).Range(“A1:G37”).LockedFalse        Worksheets(“Sheet1”).Protect End Sub   ‘自动对有内容的单个单元格锁定对没有内容的单个单元格解除锁定 Private Sub Worksheet_SelectionChange(ByVal Targe As Range)        On Error Resume Next        If Targe.Cells.Count1 Then       ‘如果目标单元格为空               If Targe”” Then               ‘解除工作表的保护                      Me.Unprotect(“password”)                      Target.LockedFalse                      Me.Protect(“password”)               Else                      Me.Unportect(“password”)                      ‘设置单元格的锁定                      Target.LockedTrue                      Me.Protect(“password”)               End If        Else               MsgBox “请选择一个单元格”,vbInformation               ActiveCell.Select        End If End Sub转载于:https://www.cnblogs.com/djcsch2001/archive/2011/08/19/2146143.html