初学者求大侠们指导，小弟拜谢

【求助帖】请及时确认最佳答案，下次提问时可以得到更多关注，问题可以更快解决

为什么从sheet3中不能粘贴东西到sheets成果表中呢》？


'Sheets("3").Activate
'Sheets("3").Select
'For i = 0 To 10
'For r = 1 To 11
't = i * 50 + 1
'h = r * 50
'
'
'If 1 = i Mod 2 Then
'
'Sheets("3").Range("A" & i & ":j" & r).Select
'
'Selection.Copy
'Sheets("成果表").Select
'
'For t = 0 To 20
'h = t * 50 + 1
'Sheets(Cells(a, h)).Select
'Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
'        xlNone, SkipBlanks:=False, Transpose:=False
'
'Application.CutCopyMode = False
'        Next t
'End If
'Next r
'Next i

猛哥

哥们，顶你。

蓝桥玄霜

建议上传表格附件来说明问题。