提取数据项时代码出错问题

鹦鹉好烦猫

求教大侠老师，提取数据表中项目时出现这种提示错误，该如何修改代码？

Peny2020

你代码里第一个WITH是否有数据？如果没有你的第二个with就会报错了，所以在两个with之前加个判断是否数据了才添加边框。



  With Range("A1").CurrentRegion
    if ......
        With Intersect(.Offset(), .Offset(1))
              .Borders.LineStyle = xlContinuous
        End With
   end if
  End With

鹦鹉好烦猫

Peny2020 发表于 2024-8-21 11:02
你代码里第一个WITH是否有数据？如果没有你的第二个with就会报错了，所以在两个with之前加个判断是否数 ...

老师你好，代码都在excel内，能不能直接改好？最好用红色标注修改的地方，谢谢。

Peny2020

我本想试运行你的代码，但我的是英文版，对于代码里的中文都会报错，所以我也不知道你具体什么问题，你在代码里加进下面红色部分试试吧。

MaxRow = Range("A" & Rows.Count).End(xlUp).Row
If MaxRow > 3 Then
  With Range("A1").CurrentRegion
    With Intersect(.Offset(), .Offset(1))
      .Borders.LineStyle = xlContinuous
    End With
  End With
End If

鹦鹉好烦猫

Peny2020 发表于 2024-8-21 14:17
我本想试运行你的代码，但我的是英文版，对于代码里的中文都会报错，所以我也不知道你具体什么问题，你在代 ...

老师好，请问代码加到哪个位置呢？

鹦鹉好烦猫

再顶一下，求解答。

lsc900707

鹦鹉好烦猫 发表于 2024-8-21 18:14
再顶一下，求解答。

测试参考附件：

鹦鹉好烦猫

lsc900707 发表于 2024-8-21 19:54
测试参考附件：

非常感谢大侠指点，我明早测试！

鹦鹉好烦猫

lsc900707 发表于 2024-8-21 19:54
测试参考附件：

老师好，提取结果有偏移？

鹦鹉好烦猫

Peny2020 发表于 2024-8-21 14:17
我本想试运行你的代码，但我的是英文版，对于代码里的中文都会报错，所以我也不知道你具体什么问题，你在代 ...

你好，加入代码后显示错误如附图。