編輯不同單元格時在單元格中自動填充序列

我想在第1列中添加一個序列號（因此A1，B1，c1將爲1,2,3）當我在第2列中輸入任何數據時。如果一個單元格沒有值，則不會在其他單元格中輸入任何內容。編輯不同單元格時在單元格中自動填充序列

最終結果應該如下所示。

 
A- 1 32 
B- 2 18 
C- 3 16 

E- 5  20

這是一個箱子的數量和配置。

我試了幾件事，我錯過了一個值。任何人都可以幫忙嗎？

來源

2010-08-06 Fooz

您是否正在爲此尋找VBA解決方案？ – 2010-08-06 16:46:54

嗨P.campbell，一個VBA的答案會有所幫助。我會看看現在的任何事情。它使我開始抽動。 – Fooz 2010-08-06 16:50:59

也許這可以幫助，只是在A1單元格使用這個公式：

Excel 2007中

=IF(LEN(B1)>0;ROW(A1);"")

Excel 2010中

=IF(LEN(B1)>0,ROW(A1),"")

然後向下填充與細胞式。當它發現任何這將寫入單元行和零當它不：

1 test 
2 test 
3 test 
0 
5 test 
0 
7 test

來源

2010-08-06 17:07:42 oli206

如果將公式更改爲'= IF（LENGTH（B1）> 0; ROW（A1）;「」）'（注意空字符串/雙引號），如果B1中沒有任何內容，則它將爲空。 – mskfisher 2010-08-06 17:15:06

更正，謝謝mskfisher！ :) – oli206 2010-08-06 17:40:39

它給了我一個錯誤。我必須更好地看待它 – Fooz 2010-08-06 21:56:38

一種方法來解決這個問題，將充分利用Worksheet_Change事件。這樣你就不需要在你的電子表格中的任何公式：

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Application.Intersect(Target, Range("B:B")) Is Nothing Then 
     End 
    End If 

    Target.Offset(0, -1) = WorksheetFunction.Max(Range("A:A")) + 1 

End Sub

要實現此代碼：

在您的工作簿按ALT + F11（這打開VBA編輯）
開放項目瀏覽器(CTRL + R)
雙擊希望代碼應用於的工作表工作表Sheet1
在左側的下拉菜單中選擇工作表和右手菜單中選擇更改
剪切和粘貼代碼提供

希望這有助於。

來源

2010-08-07 08:57:12

編輯不同單元格時在單元格中自動填充序列

回答

相關問題