макрос vba - найти первый пустой столбец из определенного диапазона строк

Question

Большинство решений, которые я нашел, были связаны с поиском первого пустого столбца или первой пустой строки, но мне нужно найти первый пустой столбец в диапазоне строк.

Мне нужно вставить что-то из рабочей книги в другую, но сначала мне нужно найти первый пустой столбец в диапазоне строк (100:114).

Я мог бы опубликовать то, что у меня есть, но это далеко от работы.

Answer 1

Так что мои навыки VBA полностью устарели, но если вы посмотрите на вклад Тома Уртиса « Как: выбрать диапазон Выбор диапазона данных с неизвестным начальным местоположением в сети разработчиков Microsoft», у него есть необходимые объекты и методы, которые вам понадобятся для тренировки. решение того, что вы хотите сделать. Ниже приведен перепечатка кода по этой ссылке:

Sub UnknownRange()
If WorksheetFunction.CountA(Cells) = 0 Then
    MsgBox "There is no range to be selected.", , "No cells contain any values."
    Exit Sub
Else
    Dim FirstRow&, FirstCol&, LastRow&, LastCol&
    Dim myUsedRange As Range
    FirstRow = Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row

    On Error Resume Next
    FirstCol = Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox _
        "There are horizontally merged cells on the sheet" & vbCrLf & _
        "that should be removed in order to locate the range.", 64, "Please unmerge all cells."
        Exit Sub
    End If

    LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    LastCol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Set myUsedRange = Range(Cells(FirstRow, FirstCol), Cells(LastRow, LastCol))
    myUsedRange.Select
    MsgBox "The data range on this worksheet is " & myUsedRange.Address(0, 0) & ".", 64, "Range address:"
End If
End Sub