Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.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 Excel在空白行发生后选择内容_Excel_Vba - Fatal编程技术网

VBA Excel在空白行发生后选择内容

VBA Excel在空白行发生后选择内容,excel,vba,Excel,Vba,我不知道代码,我只想在图像中显示我想要实现的目标 这种情况与以下查询相反: 这将只选择在第一个空格实例和最后一个空格实例之间找到的单元格。如果需要更改,请修改行Set Target\u End 您需要小心使用Set Target\u End=Target\u Start.End(xlDown).End(xlToRight)如果只有一行,它将进入列表的底部page@ScottCraner好点,我没有考虑。假设始终至少有数据、空白、数据,这将避免该问题。不打算更新,因为我不应该把一个解决方案在这

我不知道代码,我只想在图像中显示我想要实现的目标

这种情况与以下查询相反:


这将只选择在第一个空格实例和最后一个空格实例之间找到的单元格。如果需要更改,请修改行
Set Target\u End



您需要小心使用
Set Target\u End=Target\u Start.End(xlDown).End(xlToRight)
如果只有一行,它将进入列表的底部page@ScottCraner好点,我没有考虑。假设始终至少有
数据、空白、数据
,这将避免该问题。不打算更新,因为我不应该把一个解决方案在这里反正缺乏信息/代码。它工作得很好!谢谢我如何修改才能将我的情况引用到第二个空行之后的最后一组数据?这不是您在这里提出的问题。这正是你所说的你需要的。花点时间,试着在你的另一个帖子上实现这一点,在你有足够的时间至少说你为解决这一问题付出了一些真诚的努力之后再回来。如果您无法发布问题并共享您迄今为止尝试过的代码
Sub Try()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim Target_Start As Range, Target_End As Range

Set Target_Start = ws.Cells.Find("", SearchOrder:=xlByColumns).Offset(1)
Set Target_End = Target_Start.End(xlDown).End(xlToRight)

ws.Range(Target_Start, Target_End).Select

End Sub