我々は空の列を検索し、あなたが望んでいるものは非常に明確ではありません、VBAのフォーム

Question

Private Sub Add_Click() 
    Dim NextEmptyCol As Long 
    Dim ws As Worksheet 
    Set ws = Worksheets("ComboBoxList") 

NextEmptyCol = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column - 1 

     Row = ws.Cells.Find(What:="*", SearchOrder:=xlByColumns, _ 
     SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 
     ws.Cells(Row, 1).Value = Me.Response.Value 
     MsgBox "Column number " & NextEmptyCol & vbCr & _ 
"Or column letter """ & Replace(Cells(1, NextEmptyCol).Address(0, 0), 1, "") & """", _vbInformation, "The Next Empty Column is..." 


End Sub 

Answer 1

を使用して、その列に項目を追加したいが、私はこれが正しい方向にあなたを指すかもしれないと思う：

Sub foo() 
Dim LastRow As Long 
Dim LastCol As Long 
LastCol = Worksheets("ComboBoxList").Cells(1, Worksheets("ComboBoxList").Columns.Count).End(xlToLeft).Column 
'find the last column with data on row 1 (add 1 to this number to find the next empty column) 
LastRow = Worksheets("ComboBoxList").Cells(Worksheets("ComboBoxList").Rows.Count, LastCol).End(xlUp).Row 
'find the last row with data on the last column 
Worksheets("ComboBoxList").Cells(LastRow + 1, LastCol).Value = Me.response.Value 
'add the value of Response to the next empty row in the last column (empty row is lastrow with data +1) 
End Sub