Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 宏来标识边框之间的部分_Vba_Excel - Fatal编程技术网

Vba 宏来标识边框之间的部分

Vba 宏来标识边框之间的部分,vba,excel,Vba,Excel,我有一块宏,它用底部边框直观地描绘了我的数据: ' Add line between each item Sheets("Audit").Select LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Dim rng As Range For Each rng In Range("F2:F" & LastRow) If rng <> rng.Offset(

我有一块宏,它用底部边框直观地描绘了我的数据:

'   Add line between each item
Sheets("Audit").Select
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim rng As Range
For Each rng In Range("F2:F" & LastRow)
  If rng <> rng.Offset(1, 0) Then
    Range("A" & rng.Row & ":O" & rng.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
  End If
Next rng

我的猜测是,一个带有公式的助手可以显示哪些行要包含在过滤器中,哪些行不包含在过滤器中。您可以根据此列的结果进行筛选。因为没有示例数据,所以很难提供更多细节。假设我创建了一个helper列,其中每个带下划线的行在该列中都有一个“L”值,每个粗体的行在该列中都有一个“B”。我可以制作一个宏来删除两个Ls之间没有B的任何部分吗?我可以制作一个宏来删除两个Ls之间没有B的任何部分吗对我能适应类似问题的任何指导或解决方案吗?我目前正在使用Find来记录每一行的行号,但它感觉很笨重。
1 Line
2 
3 
4 Line
5
6 Remove
7
8
9 Line
10
11 Line