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

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

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

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

24
задан AMR
12.01.2023 13:44 Количество просмотров материала 2526
Распечатать страницу

1 ответ

Так что мои навыки VBA будут полностью расти, но если вы посмотрите на Тома вклад Urtis на Как выбрать диапазон выбор диапазона данных неизвестного начального местоположения в сети разработчиков 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
0
отвечен AMR 2023-01-13 21:32

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх