VBA：從用戶表單以價值與

列

我試圖從宏用戶輸入（只要最好我的第一列的內容）複製該字符串列的長度VBA：從用戶表單以價值與

插入例如：你在哪個國家？

用戶輸入：美國

Column1 Column2 

Steve  United States 

Bill  United States 

Blank  United States 

Alice  United States

來源

2012-11-20 user1655653

你有一些代碼嗎？ –

對不起，沒有。我唯一的經驗是在JAVA。我在寫任何東西之前都試圖找出一些共同點。 – user1655653

忽略了很多錯誤檢查確保答案放入/中，這裏是做到這一點的最簡單的方法：

Sub Test() 

    Dim Answer As String 

    Answer = InputBox("What country are you in?") 
    Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:A")).Offset(0, 1).Value = Answer 

    End Sub

來源

2012-11-20 22:41:40

這裏亞去。如果列中的單元格A是非空白，則此子將僅填充列B中的相應單元格。

它遍歷A列中的每個項目，檢查單元格是否爲空白，然後將「答案」字符串放在列B中，如果單元格不爲空。

Sub country() 

Dim Answer As String, i As Range 

Answer = InputBox("What country are you in?") 

For Each i In ActiveSheet.Range("A2", ActiveSheet.Range("A300000").End(xlUp)) 

    If i <> vbNullString Then 
     i.Offset(0, 1).Value = Answer 
    End If 

Next i 

End Sub

來源

2012-11-21 18:04:22 fbonetti

VBA：從用戶表單以價值與

回答

相關問題