求助vba分列

jhren

用vba分列G列，有*执行，没有*不执行，求大神帮忙，感谢。国庆快乐:))

求助，用vba分列G列，有*执行，没有*不执行，求大神帮忙，网上找的代码默认是整列分列，分列过的后面会变空白，求帮助感谢。国庆快乐:))

清风竹-

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
    s = Target.Value
    a = Split(s, "*")
    Target.Resize(1, UBound(a) + 1) = a
End If
End Sub


双击G列单元格。
代码放到对应的工作表中。

jhren

清风竹- 发表于 2019-9-25 20:29
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column ...

感谢，放到对应的工作表中显示这个代码，然后就没有了