怎么copy一行到另外一个sheet去

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

想copy A2：J2的数据 到另外一个sheet，不是整个一行。另外因为是循环所以要求A：J 的row会变的。刚开始学VBA感觉和SAS实在太不一样了。
写的程序在下面那行红的就是有问题的，请帮我改改，谢谢！！！！！！
表达可能有问题，不清楚我的我在第一时间解释

Sub count()
Dim position As Integer
Dim start As Integer
start = 1
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet3")

      With ActiveSheet
            
             Dim LastRowA As Long
            LastRowj = .Cells(.Rows.count, "J").End(xlUp).Row
   
               
            For jstart = 2 To LastRowj
   
                    For start = 2 To 303
                    position = InStr(1, UCase(Cells(jstart, 10).Value), .Cells(start, 17).Value)
                    If position > 0 Then ws1.Cells(jstart, Range("A:J")).Copy ws2.Cells(jstart, Range("A:J"))
                    Next start
            
            Next jstart
            
        End With

End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：sheet COPY SHE worksheet position position count start 第一时间 程序

大家帮帮我啊！

是大家不明白我在说什么吗？

ws1.Cells(jstart, Range("A:J")).Copy ws2.Cells(jstart, Range("A:J"))这样不行的
cells(行号,列号）你在列号这里输入range("a:j")自然不对
按照你的思路
可以用for循环先选取行号，再通过列号来实现循环

1. Sub count()
   
2. Dim position As Integer, start As Integer, LastRowA As Long, j As Integer
   
3. start = 1
   
4. Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
   
5. Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet3")
   
6. 
   
7. With ActiveSheet
   
8. 
   
9. LastRowj = .Cells(.Rows.count, "J").End(xlUp).Row
   
10. For jstart = 2 To LastRowj
    
11. For j = 1 To 10 'A-J列循环
    
12. For start = 2 To 303
    
13. position = InStr(1, UCase(Cells(jstart, 10).Value), .Cells(start, 17).Value)
    
14. If position > 0 Then ws1.Cells(jstart, j).Copy ws2.Cells(jstart, j)
    
15. Next start
    
16. Next jstart
    
17. 
    
18. End With
    
19. 
    
20. End Sub

复制代码

平时练习的时候 多学会调试代码以及使用F1抹黑你想要了解的单词查看帮助

不好意思，貌似for j 那一句应该放在 for start那一句的下面才是你想要的结果

另外问一句
兄弟有没有spss的好的视频可以借我学习一番

推荐该版块赵志东的那个视频学习
很好的视频，另外如果你是想学excel方面的知识最好是去excelhome论坛学习
比这里事半功倍，这里清谈者甚多，实际操作的少之又少

谢谢楼上的，晚上自己也小研究了一下，问题得到解决，帮我看看
Sub count()
Dim position As Integer
Dim start, copyrow, jstart As Integer
start = 1
copyrow = 2

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet3")
             Dim LastRowAinsheet3 As Long
             LastRowAinsheet3 = ws2.Cells(ws2.Rows.count, "A").End(xlUp).Row
             MsgBox ("LastRowAinsheet" & "=" & LastRowAinsheet3)
      
            
              Dim LastRowA As Long
             LastRowA = ws1.Cells(ws1.Rows.count, "A").End(xlUp).Row
     
               
            For jstart = 2 To LastRowA
     
                     For start = 2 To 303
                     position = InStr(1, UCase(ws1.Cells(jstart, 1).Value), ws1.Cells(start, 17).Value)
                            If position > 0 Then
                         ws1.Range("A" & jstart, "I" & jstart).Copy ws2.Range("A" & LastRowAinsheet3 + 1, "I" & LastRowAinsheet3 + 1)
                        LastRowAinsheet3 = LastRowAinsheet3 + 1
                    '  MsgBox (ws1.Range("A" & jstart).Value)
                    ' MsgBox ("jstart" & "=" & jstart)
                     Exit For
                     End If
                     Next start
            
             Next jstart
            
        
  ws1.Range("A2", "J100").ClearContents
End Sub

劍布衣 发表于 2013-3-12 19:59
另外问一句
兄弟有没有spss的好的视频可以借我学习一番

不太用SPSS，用SAS比较多一点