2016-07-05 3 views
0

セルB1に書かれた数式をB100までドラッグする必要があります。Excel:セルを1つのセルギャップでドラッグする

セルB1のための式

=(A2 - A1) 

:今はB100に細胞B1をドラッグして、以下に示すような間に一つのセルブランクを必要とする必要があります

期待される結果:

A  B 
----------- 
2  3 
5 
8  1  
9 

ドラッグオプションをフォーマットすることは可能ですか?

+0

@Jeeped、私はお詫び申し上げます! – MAK

答えて

2

あなたが使用することができます。

=IF(MOD(ROW(),2),A2-A1,"") 

enter image description here

+1

'<> 0'が本当に必要かどうかは不明です。 Falseは0に等しく、Falseでないものは真です。 – Jeeped

+0

@Jeeped - あなたは正しいです、式は '<> 0'なしで動作します。それを指摘してくれてありがとう、答えは編集されました。 – Mrig

1

典型的なVBAのソリューションを簡単に行うことがあります

@Jeepedで指摘したように
=IF(MOD(ROW(),2)<>0,A2-A1,"") 

、上記の式のように書くこともできますUnion methodがあります。

Sub werqtr() 
    Dim i As Long, bs As Range 

    With Worksheets("Sheet1") 'KNOW WHAT WORKSHEET YOU ARE ON!!!!!! 
     Set bs = .Range("B1") 
     For i = 3 To 100 Step 2 
      Set bs = Union(bs, .Cells(i, "B")) 
     Next i 
     bs.Formula = "=A2-A1" 
    End With 

End Sub 
+0

私は疑いがあります。 VBAソリューションが可能か、提供されているかどうかを明確にするタグは、excel-vbaタグを含むように編集する必要がありますか?以前私はOP Postを編集しました。 – skkakkar

+1

@skkakkar - この質問はもともと[vba]と[excel-vba]でタグ付けされていました。タグは削除されました。「なぜvbaならドラッグダウンしたいのですか?」と質問したが、私はすでに解決策を用意していた。私はそれが[Mrig](http://stackoverflow.com/users/6075259/mrig)によって投稿された受け入れられたソリューションの補遺として立つことができると信じています。 – Jeeped

関連する問題