別のセルからのブロック値に基づいてセルに値を複製する方法

Question

複数の都市番号と与えられたデータで提供されるブロックの量が必要です。ここに私が見ているもののイメージと、それが私のように見えるようにするためのものがあります。あなたは41288を参照の列Aおよび空の列の4

の整数値は、C、D、E、F、G、Hを言うことができます参照して列Bのimage of what would be needed done

1. 。 ....私はそれが列EとFに示されているようにセルの間にスペースが必要です

   私は（A）の整数と数字の間にどのようにスペースがありますか？

私には数式があるはずです。しかし、Googleで何を尋ねるのかわからないと、どこにもあなたを取得できません。

Answer 1

次のように（あなたが後にした正確な形式であなたにそれを与える）VBAの答えは次のとおりです。

：答えは、今あるコメントで改正要件を考えると

Sub DigitBlocks() 
Dim rng As Range, a As Double, b As Double, c As Double, d As Double, e As Double 
Set rng = ActiveSheet.Range("A2").CurrentRegion 

a = Val(Right(Left(rng.Address, InStr(rng.Address, ":") - 1), Len(Left(rng.Address, InStr(rng.Address, ":") - 1)) - InStrRev(Left(rng.Address, InStr(rng.Address, ":") - 1), "$"))) + 1 
b = 3 

For d = a To rng.Rows.Count 
    Range("E" & b).Value = Range("A" & d).Value 
    e = Range("B" & d).Value 
    For c = 1 To e 
     Range("F" & b + c - 1).Value = c 
    Next c 
    b = b + c 
Next d 
End Sub 

---

Sub DigitBlocks() Dim rng As Range, a As Double, b As Double, c As Double, d As Double, e As Double Set rng = ActiveSheet.Range("A2").CurrentRegion a = Val(Right(Left(rng.Address, InStr(rng.Address, ":") - 1), Len(Left(rng.Address, InStr(rng.Address, ":") - 1)) - InStrRev(Left(rng.Address, InStr(rng.Address, ":") - 1), "$"))) + 1 b = 3 For d = a To rng.Rows.Count Range("M" & b).Value = Range("J" & d).Value e = Range("K" & d).Value For c = 1 To e Range("N" & b + c - 1).Value = c Next c b = b + c Next d End Sub 

Answer 2

これはまさにあなたが望む形式ではありませんが、私はこれが式で手に入るほど近いと思います。

=IF(B2="","",IF(B2=1,"",B2-1)) 

オートフィルC2を下にして、右に列全体を自動入力：

はC2にこれを入れてください。

あなたはその後になります。

41288|4|3|2|1 

あなたはその後、HTH

EDIT次の形式

|41288|41289|41290| 
| 4 | 5 | 6 | 
| 3 | 4 | 5 | 
| 2 | 3 | 4 | 
| 1 | 2 | 3 | 
|  | 1 | 2 | 
|  |  | 1 | 

を取得するために&転置をコピーすることができます：

注意しても細胞であればその最後は空に見えますが、そこにはまだ数式があります。あなたが "あまりにも遠すぎる"場合は自動入力します。 &を最初にコピーして値のみを入力し、セルを完全に空にしたい場合は後で転置することができます。