主页 / user-14486481

Mohamad Bachrouche's questions

Martin Hope
Mohamad Bachrouche
Asked: 2025-03-25 01:39:50 +0800 CST
  • 6

下面的代码可用于将一个单元格添加!到一个或多个单元格选择中，但是如何添加一个后续单元格然后!删除!!呢？

有两个序列：

  1. shift1<回到shift1!<​shift1!!<​shift1<
  2. shift1<^回到shift1!<^​shift1!!<^​shift1<^
    'successfully adds ! to any selection of blank cells or after any string
    'example: from "blank cell" to "!" or from "shift1" to "shift1!"
        If InStr(ActiveCell.Value, "!") = 0 And InStr(ActiveCell.Value, "^") = 0 Then
            If InStr(ActiveCell.Value, "<") = 0 And InStr(ActiveCell.Value, ">") = 0 _
            And InStr(ActiveCell.Value, "^") = 0 Then
                For Each c In Selection.Cells
                    c.Value = c.Value & "!"
                Next c
                
        'successfully adds ! in between shift string and < if ! is not present
        'example: from "shift1<" to "shift1!<"
            ElseIf InStr(ActiveCell.Value, "!") = 0 Then
                Selection.Cells.Replace "<", "!<"
                
        'does not add another ! in between shift string and < if one ! is present
        'example: from "shift1!<" to "shift1!!<"
            ElseIf InStr(ActiveCell.Value, "!") = 1 Then
                Selection.Cells.Replace "!<", "!!<"
                
        'does not remove !! in between shift string and < if two ! are present
        'example: from "shift1!!<" to "shift1<"
            ElseIf InStr(ActiveCell.Value, "!") = 2 Then
                Selection.Cells.Replace "!!<", "<"
            End If
            
    'successfully adds ! in between shift string and <^
    'example: from "shift1<^" to "shift1!<^"
        ElseIf InStr(ActiveCell.Value, "<") > 0 And InStr(ActiveCell.Value, "^") > 0 _
        And InStr(ActiveCell.Value, "!") = 0 Then
            Selection.Cells.Replace "<^", "!<^"
            
    'does not add another ! in between shift string and <^
    'example: from "shift1!<^" to "shift1!!<^"
        ElseIf InStr(ActiveCell.Value, "<") > 0 And InStr(ActiveCell.Value, "^") > 0 _
        And InStr(ActiveCell.Value, "!") = 1 Then
            Selection.Cells.Replace "!<^", "!!<^"
            
    'does not remove !! in between shift string and < if two ! are present
    'example: from "shift1!!<^" to "shift1<^"
        ElseIf InStr(ActiveCell.Value, "<") > 0 And InStr(ActiveCell.Value, "^") > 0 _
        And InStr(ActiveCell.Value, "!") = 2 Then
            Selection.Cells.Replace "!!<^", "<^"
        End If
excel