Как форматировать ячейки, которые меняются каждую неделю

Question

У меня есть код, который ищет мою таблицу для «x» в столбце L, и если это так, она копирует всю строку и вставляет ее в новый лист. Это продолжается до тех пор, пока в столбце не будет больше «x».

Что я хочу сделать, так это то, что макрос также помещает границу «Все границы» в эти ячейки. Проблема, с которой я столкнулся, заключается в том, что через неделю новая вкладка будет иметь 3 строки данных, а другая неделя может иметь 23.

Как я могу сделать это так, чтобы он только форматировал ячейки, у которых есть данные. (В моем случае всегда будут столбцы B: L, которые мне нужно отформатировать, но строки будут меняться).

Спасибо!

Answer 1

проверьте приведенный ниже код, особенно если свойство .usedrange работает для вас.

sub formatBorder() 

dim rng as range 
dim wks as worksheet 

set wks = thisworkbook.worksheets("Sheet1") 'change sheet name if required 
set rng = intersect(wks.usedrange,wks.range("B:L")) 

if rng is nothing then goto terminate 

With rng.Borders 
    .LineStyle = xlContinuous 
    .Color = vbRed 
    .Weight = xlThin 
End With 

terminate: 
set wks = nothing 
set rng = nothing 

end sub