回覆列表
-
1 # 使用者4540827838589
-
2 # 想把你暖和v
ALT+F11，插入模組，貼上以下程式碼。
然後在Excel介面中，Alt+F8執行這個宏就行了
1
2
3
4
5
6
7
8
Sub 正負()
For i = 1 To [a65536].End(3)
.Row
If Cells(i, "A") < 0 Then
Cells(i, "B") = Cells(i, "A")
Cells(i, "A") = ""
End If
Next
End Sub
ALT+F11，插入模組，貼上以下程式碼。；然後在Excel介面中，Alt+F8執行這個宏就行了；Sub 正負()For i = 1 To [a65536].End(3).RowIf Cells(i, "A") < 0 Then Cells(i, "B") = Cells(i, "A") Cells(i, "A") = ""End IfNextEnd Sub；