请帮助当我使用这个作为宏...有错误的问题...
Sub Working()
If IsEmpty(ActiveCell.Value) Then
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= \_
xlNone, SkipBlanks:=False, Transpose:=True
End If
If Not IsEmpty(ActiveCell.Value) Then
MsgBox "I'm not empty!"
End If
End Sub
错误代码为blowIf IsEmpty(ActiveCell.Value) Then Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= \_
1条答案
按热度按时间5lhxktic1#