如何插入Excel中

-4

基於單元格值的行我有一個包含表的EXCELL電子表格。我希望能夠插入給定數量的行，這取決於插入到特定單元格的值。所以如果值是'3'，它將插入3行，如果值是'6'，它將插入6行，依此類推。我不知道如何處理這個問題。任何人都可以幫我解決這個問題嗎？如何插入Excel中

來源

2016-09-11 Krishan Kavinda

你需要VBA爲。添加了標籤。但我們需要更多信息。舉個例子呢？之前和之後。 – Andreas

@Krishan Kavinda如果你想要得到人們的重視，並得到解答您的文章，您需要提供更多的信息，你的數據的藥結構（從什麼表，範圍複製，對此範圍內）。同時，分享你的代碼的企圖會增加你的機會 –

在我來說，我想補充植物類型和用戶的數量應該增加的數量。爲了數下面的行應該改爲 –

假設：

細胞「A1」是一個地方，你會接受用戶輸入
行將右下方單元格「A1」

的插入你可以試試這個代碼在相關工作表的代碼窗格中放置：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Selection.Count > 1 Then Exit Sub '<-| exit if edited cell is part of a selection larger than 1 cell 

    With Target '<-- reference changed cell 
     If .Address = "$A$1" Then '<--| proceed if it is the "Rows n° to add" cell (change "$A$1" to your actual relevant cell address) 
      If IsNumeric(.Value) Then '<--| proceed if it contains a numeric value 
       If CLng(.Value) > 0 And CLng(.Value) < 3 Then '<--| proceed if its value fits some numeric range (change range bounds to you actual needs) 
        .Offset(1).Resize(CLng(.Value)).EntireRow.Insert 
       End If 
      End If 
     End If 
    End With 
End Sub

看評論爲在那裏你可以自定義用戶輸入驗證

來源

2016-09-11 06:23:31 user3598756

如何插入Excel中

回答

相關問題