excel表格怎么跳格剪切

1.如何设置Excel在按回车后直接跳至另一个编辑框

楼主要求的方法， 我十年前已用， 当然是用VBA

WORKSHEET_CHANGE（)的办法 便可以

先假设下次跳到的空位是有规律的

假设最上的几行是信头/表头等， 需编辑的范围是从第5行开始

每行需要编辑的的列号是 A列→C列→G列， 然后是下一行的A列， 依此类推

方法是：

右击（该工作表）工作表标签

选 检视程序代码（V）

对话框左上方的下拉 选 Worksheet

右上方的下拉 选 Change

将代码放在：

Private Sub Worksheet_Change(ByVal Target As Range)

[代码放在这里]

End Sub

代码是：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or Target.Row < 5 Then Exit Sub

Select Case Target.Column

Case 1

If IsEmpty(Target) = True Then

Target.Select

Beep

Else

Target.Offset(0, 2).Select

Beep

End If

Case 3

If IsEmpty(Target) = True Then

Target.Select

Beep

Else

Target.Offset(0,4).Select

Beep

End If

Case 7

If IsEmpty(Target) = True Then

Target.Select

Beep

Else

Target.Offset(1,-6).Select

Beep

End If

End Select

End Sub

然后关闭代码视窗， 完成

以后， 在 A5， 输入回车， 便会跳到C5， 再跳G5， 再跳A6…..

如在A5清除内容后回车， 是不会跳到C5， 仍停在A5

假设跳格的路线是 A3:D3（合并格）， B6:F6（合并格）， A7, E7:F7（合并格）， F10 共5格

在VBA的Array 中， 只需列出最左上的单元格便OK， 即 A3:D3 写成$A$3便可以， 最后的一格 F10， 要重覆一次

全新代码如下（语法及判断方法与前代码完全不同了）：

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ABC

xx = Array("$A$3", "$B$6", "$A$7", "$E$7", "$F$10", "$F$10")

For Each x In xx

If Target.Address = x Then

If IsEmpty(Target) Then

Target.Select

Exit Sub

Else

Range(xx(x1 + 1)).Select

Exit Sub

End If

End If

x1 = x1 + 1

Next

ABC:

End Sub

2.excel怎么把单元格中部分信息批量剪切到另一个单元格

在C1中输入或复制粘贴下列公式

=IF(ISNUMBER(FIND("(",A1)),LEFT(A1,FIND("(",A1)-1),A1)

下拉填充

在D1中输入或复制粘贴下列公式

=IF(ISNUMBER(FIND("(",A1)),SUBSTITUTE(MID(A1,FIND("(",A1)+1,LEN(A1)),")",),"")

下拉填充

上述公式中的（或）都为半角括号。如果A列是全角括号，公式中的（或）应修改为相应的全角括号。