|
▼℃素人 さん:
こんばんは。
>返信遅れてすいません。
>以前と重ね,お礼申し上げます。
>ichinose様から頂いたものを貼り付けてみたのですが,
>後に述べた
>「項目2がスペースの試行もsame,different列には何も記載しないようにしたい」
>はできたのですが,
>先に述べた
>「項目2においてn試行前と比較しn試行前がA,Bでなくスペースであれば,
>same,different列にはスペースと追加したい」
>ができませんでした。
ん?℃素人 さんが提示されたサンプルデータで試して見ましたが、
結果も提示されたとおりでしが・・・。
では、大事を取って、Trim関数も追加して見ました。
'===========================================================
Sub main()
Dim comptry As Variant
Dim rng As Range
comptry = Application.InputBox("比較する試行前入力", , , , , , , 1)
'ここで、1とか2とかを指定します。
If TypeName(comptry) <> "Boolean" Then
Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
If rng.Row > 1 Then
With rng.Offset(0, 3).Resize(, 2)
.Formula = Array( _
"=if(a2<=" & comptry & ",""/"",if(or(trim(c2)="""",trim(c" & 2 + comptry & ")=""""),"""",IF(C2=C" & 2 + comptry & ",B2,"""")))", _
"=if(a2<=" & comptry & ",""/"",if(or(trim(c2)="""",trim(c" & 2 + comptry & ")=""""),"""",IF(C2=C" & 2 + comptry & ","""",b2)))")
End With
End If
End If
End Sub
これでどうでしょうか?
|
|