求助，关于单元格跳转问题

五分钟

新建 Microsoft Excel 工作表.zip (13.6 KB, 下载次数: 1)

2017-10-7 10:25 上传

点击文件名下载附件

我使用的VBA代码为
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 4 And Target.Column = 8 Then
        Range("d9").Select
    End If
End Sub

目的是当H4单元格输入完毕后自动移动到D9单元格，但是当我在D9单元格输入完数据后按回车键本应向下移动D10单元格的，但却移动到了H10单元格，我自己试了下，似乎是H4单元格下面的合并单元格造成的，有没有解决办法？

五分钟

朱荣兴 发表于 2017-10-7 11:16

谢谢帮助，但这样有个问题，就是工作表里的所有单元格都只能向下移动了，方向键没用了。。。

五分钟

已解决，用的比较原始的办法，就是在选中H4单元格是将下面的合并单元格取消合并，在H4的数据输入完成移动到D9单元格后将原来的单元格恢复合并
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$H$4:$J$4" Then
        Range("H5:J5").UnMerge
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$4" Then
        Range("d9").Select
        Range("H5:J5").Merge
    End If
End Sub