循环直到一行中的最后一列并填充组合框

Question

How to fill my ComboBox1 with all the values of a row without blanks from B2 until the End of the row?

I know :

Sheets("Sheetname").Range("A2:A" & .Range("A65536").End(xlUp).Row).Value

but this is the code to loop until the last row in a column, I want to do the opposite.

Answer 1

I would use a variable ( LC ) to store the column index of your last used column for readability. You should also declare a Worksheet variable, or use a With Block to ensure all of your objects are properly qualified.

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LC As Long

LC = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column

ws.Range(ws.Cells(2, 2), ws.Cells(2, LC)).[what?]

---

Here is how you could implement a Column Loop

Option Explicit

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LC As Long

LC = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column

For i = 2 To LC
    If ws.Cells(2, i) = "" Then
        MsgBox "Blank Cell: " & ws.Cells(2, i).Address(False, False)
    Else
        MsgBox "Non-Blank Cell: " & ws.Cells(2, i).Address(False, False)
    End If
Next i

Answer 2

I think what you're looking for is:

Sheets("Sheetname").Range(Cells(2, 2), Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column))

Note - it looks like in your example you were using a With block - so add periods in front of all those cells to make sure your ranges are fully qualified.

Answer 3

Fill Combo With Row (Resize Version)

ActiveSheet

Private Sub UserForm_Activate()

   Const cStrFirst As String = "A2"           ' First Cell Range

   Dim vntRange As Variant                    ' Range Array
   Dim i As Integer                           ' Columns Counter

   vntRange = Range(cStrFirst).Resize(, Cells(Range(cStrFirst).Row, _
       Columns.Count).End(xlToLeft).Column)

   For i = 1 To UBound(vntRange, 2)
     If vntRange(1, i) <> "" Then
       ComboBox1.AddItem vntRange(1, i)
     End If
   Next

End Sub

Any Sheet

Private Sub UserForm_Activate()

   Const cStrSheet As Variant = "Sheetname"   ' Sheet Name/Index
   Const cStrFirst As String = "A2"           ' First Cell Range

   Dim vntRange As Variant                    ' Range Array
   Dim i As Integer                           ' Columns Counter

   With Worksheets(cStrSheet)
     vntRange = .Range(cStrFirst).Resize(, .Cells(.Range(cStrFirst).Row, _
       .Columns.Count).End(xlToLeft).Column)
   End With

   For i = 1 To UBound(vntRange, 2)
     If vntRange(1, i) <> "" Then
       ComboBox1.AddItem vntRange(1, i)
     End If
   Next

End Sub

Answer 4

dim xrow1 as long, xrow2 as long, ws1 as Worksheet, ws2 as Worksheet

set ws1 = ThisWorkbook.Worksheets("worksheet1")
set ws2 = ThisWorkbook.Worksheets("worksheet2")
xrow2 = 2

for xrow1 = 2 to 65536
    if ws1.cells(xrow1, 1) = "" Then
    else
        ws1.cells(xrow1, 1).value = ws2.cells(xrow2, 1).value     
    end if
    xrow2 = xrow2 + 1
next xrow1

This would copy all the values in the first column of ws1 to ws2 and skip over all of the blank rows. I'm not familiar with the specific syntax for a combo box, but I assume if you altered my code slightly, you could make it work.

If you want me to code something specific to your project, let me see what you have written so far and/or some of the data you want transferred.