如何根據另一個單元格中的塊值複製單元格中的值

我想擁有多個城市編號和給定數據中提供的塊數量。這是我正在看的圖像，以及我需要的樣子。 image of what would be needed done 如何根據另一個單元格中的塊值複製單元格中的值

在列A中，你看到41288和在列B，其中在空塔看到一個由4
的整數值
可以說C，d，E，F，G，H。 ....我希望它在E和F列所示的單元格之間空出來。

所以，我相信問題是我如何在（A）中的整數和數字之間進行空格？

我知道那裏必須有一個公式。但是，不知道在Google上問什麼問題可以讓你無處可去。

來源

2016-08-01 Shevan Murat

在VBA中應該很容易。這是一個選擇嗎？ –

視覺基礎我可以得到是的。但不知道如何。並將它仍然出口到Excel格式？ –

是的，您只需循環查看A和B列中的內容，然後爲E＆F添加值即可。它將位於同一個Excel文件中。 –

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

來源

2016-08-01 12:39:41

哇謝謝。我實際上現在下載它。唯一的事情是在IRAQ互聯網超級慢。 YOU GUYS ROCK –

oooo事實證明它是建立在....你認真搖滾它的作品非常棒。 –

不用擔心。我只是提到這一點，因爲你繼續在2個答案之間作爲接受的答案，只是爲了讓你意識到;你只能接受一個「答案」，但你可以多選一個。無論你想做什麼，完全取決於你。 –

這不完全是你想要的格式，但我認爲這是儘可能接近公式。

將這個到C2：

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

自動填充C2下來，然後自動填充整列到右邊。

這樣您就可以：

41288|4|3|2|1

然後，您可以複製&轉得到以下格式

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

HTH

編輯：

請注意，即使細胞最後看起來是空的，那裏還有公式，如果您自動填充「太遠」。您可以複製&首先粘貼值，然後稍後轉置，如果您希望單元格完全空白。

來源

2016-08-01 12:21:14

在公式和解釋中編輯了一個錯誤，現在應該工作。 –

讓我試試這聽起來不錯 –

我把它放入c2，它吐出來，我們發現一個問題..... –

如何根據另一個單元格中的塊值複製單元格中的值

回答

相關問題