求助：excel 用vba 时，肿么才能选中隐藏表格中混粉由否制钱请参仅调的数据

Sub CommandButton1_Click() For i = 30 To 39 If Cells(i, 3).EntireRow.Hidden = True Then k = k + 1 Select Case k Case Is = 1 Set rag = Rows(i) Case I永诉担虽正跳料s 1 Set rag = Union(rag, Rows(i)) End Select End If Next rag.EntireRow.Hidden = False Range(C30:C39).Copy Range(a1).Select ActiveSheet.Paste rag.EntireRow.Hidden = True Set rag = Nothing End Sub