Игнорирование столбцов на основе формулы при использовании «currentregion» для совокупности данных

Question

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

Форма находит следующую пустую строку в электронной таблице и затем записывает данные в эту строку. Проблема в том, что первые три столбца моего листа основаны на формуле и перетаскиваются по всей электронной таблице. Поскольку я использую свойство currentregion, это означает, что форма записывает новые данные после всех формул, даже если они пустые и зависят от ввода. Вот мой код для ввода данных (больше, но это соответствующая часть).

Rowcount = Worksheets("Data Entry").Range("D1").CurrentRegion.Rows.Count 

With Worksheets("Data Entry").Range("D1") 
    .Offset(Rowcount, 0).Value = Me.txtDOY.Value 
    .Offset(Rowcount, 1).Value = Me.cboClient.Value 
    .Offset(Rowcount, 2).Value = Me.cboProject.Value 
    .Offset(Rowcount, 3).Value = Me.cboType.Value 
    .Offset(Rowcount, 4).Value = Me.txtDescription.Value 
    .Offset(Rowcount, 5).Value = Me.txtAmount.Value 
    .Offset(Rowcount, 6).Value = Me.txtMiles.Value 
    .Offset(Rowcount, 7).Value = Me.txtRate.Value 
End With 

Я был в состоянии противодействовать этому, введя пустую колонку между колонке C и D (отрезав текущую область из столбцов формулы на основе), но это окольный способ сделать это и выглядит неопрятно. Есть ли чистый способ сделать это, что позволяет мне оставить всю таблицу как один непрерывный блок? Я предполагаю, что это через свойство rowcount, но я не могу понять, как программировать его по-другому.

Answer 1

Попробуйте найти последний населенный строку в колонке D. Если предположить, что код в код модуля листа в вопросе (это то, что «я» в коде ниже) ...

With Worksheets("Data Entry") 
    Rowcount = .Cells(.Rows.Count, 4).End(xlUp).Row 
End With