A列の状態をB列C列に正数と負数に分けたいのですが
エクセル関数またはマクロでできますか
よろしくお願いします。
A列 B列 C列
5000 5000
6000 6000
-7000 -7000
3000 3000
-4000 -4000
6000 6000
-4000 -4000
No.1
13539
1198
31pt
0の時は 正数のほうに 振り分けしています。
Sub 振り分け() Dim a As Long For a = 1 To Range("A1").End(xlDown).Row If Cells(a, "A") < 0 Then Cells(a, "C") = Cells(a, "A") Else Cells(a, "B") = Cells(a, "A") End If Next a End Sub
No.1
135391198
ここでベストアンサー
31pt
0の時は 正数のほうに 振り分けしています。
Sub 振り分け() Dim a As Long For a = 1 To Range("A1").End(xlDown).Row If Cells(a, "A") < 0 Then Cells(a, "C") = Cells(a, "A") Else Cells(a, "B") = Cells(a, "A") End If Next a End Sub
ありがとうございます。
早速使わせていただきます。
No.2
12814
21pt
1行目からデータが入ってるとすると、
セルB1には、「=IF(A1>0,A1,"")」セルC1には「=IF(A1<0,A1,"")」と入力し、2行目以降はコピーしてください。
この場合は、A列が0の場合は、B列にもC列にも値は入りません。
もしA列が0の場合にB列に表示したい場合は、「=IF(A1>=0,A1,"")」のようにしてください。
ありがとうございます。
早速使わせていただきます。
No.3
1745
16pt
標準モジュールに下記を入力したのち、ワークシート上の一番左上(開始点)のセルにカーソルを置いて、マクロ furiwake を実行します。
-----------------------------------
Option Explicit
Sub furiwake()
Dim a As Double
Do While ActiveCell <> ""
a = ActiveCell.Value
If a >= 0 Then
ActiveCell.Offset(0, 1).Value = a
Else
ActiveCell.Offset(0, 2).Value = a
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
------------------------------------
ありがとうございます。
早速使わせていただきます。
No.4
2832181
16pt
表示だけの問題でよければ、書式でＢ列Ｃ列をユーザ設定で
0;-0;""
としておいてからＢ列Ｃ列に関数で
=if(a2>0,a2,0)←Ｂ列の例
=if(a2<0,a2,0)←Ｃ列の例
としておけば良いでしょう
ありがとうございます。
早速使わせていただきます。
No.5
745
16pt
非常にシンプルに、
B列に
=IF(A3>0,A3,"")
C列に
=IF(A3<0,A3,"")
で出来ますがこういうことではないのでしょうか？
ありがとうございます。
早速使わせていただきます。
きゃづみぃ
2011/04/04 13:08:14
1
1
1
1
1
146
144
ありがとうございます。
早速使わせていただきます。