VBA中如何通过单元格的内容，选中其所对的表格
EXCEL中，VBA中通过单元格的内容，选中其所对的表格。比如：一张工作表中有很多表格（表格跟表格之间有个空行隔开），收索项目为七年级男子200米，然后选中所对应的下方的表格，复制它。先谢过！！！
Sub cc()
Dim str$, c As Range, rng As Range
str = InputBox("请输入查找文本", "查找")
Set c = Sheet1.Range("a:a").Find(str)
If Not c Is Nothing Then
Set rng = c.CurrentRegion
rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count).Select
Selection.Copy
End If
Set rng = Nothing
Set c = Nothing
End Sub追问
Dim str$, c As Range, rng As Range
str = InputBox("请输入查找文本", "查找")
Set c = Sheet1.Range("a:a").Find(str)
If Not c Is Nothing Then
Set rng = c.CurrentRegion
rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count).Select
Selection.Copy
End If
Set rng = Nothing
Set c = Nothing
End Sub追问
老师现在我想，根据sheet2中B列项目名称的顺序，重新对表一进行排序，希望老师帮忙
温馨提示：答案为网友推荐，仅供参考
相似回答