Excel2007 VBA复制整行到其它sheet

发布网友发布时间：2022-04-21 22:00

共4个回答

热心网友时间：2023-08-28 09:21

1、进入EXCEL,ALT+F11进入VBA编辑器。

3、在工作表中插入表单控件，并指定到宏Macro1。

4、点击表单控件，语言中的整行整列就被选中了。

热心网友时间：2023-08-28 09:21

'这是不带单元格格式的
Dim i As Integer
For i = 1 To 1000
   If Cells(i, 1).Value = "" Then　　
      N4=N4+1
      sheet4.rows(n4+1).value=rows(i).value
   Else
      N5=N5+1
      sheet5.rows(n5+1).value=rows(i).value
   end if
next

'这是带格式一起复制的
Dim i As Integer
For i = 1 To 1000
   If Cells(i, 1).Value = "" Then　　
      N4=N4+1
      rows(i).copy sheet4.rows(n4+1)
   Else
      N5=N5+1
      rows(i).copy sheet5.rows(n5+1)
   end if
next

热心网友时间：2023-08-28 09:21

Dim i As Integer,j4,j5
j4=2
j5=2
For i = 1 To 1000
   If Cells(i, 1).Value = "" Then　　
      rows(i).copy sheet4.rows(j4)
      j4=j4+1
   Else
      rows(i).copy sheet5.rows(j5)
       j5=j5+1

热心网友时间：2023-08-28 09:22

为空你保存什么？追问整行啊，如果是空的就把整行拷到sheet5,别的格里有内容，谢谢

追答学习用数组练练手
Sub 空值拆分()
   Dim Arr, Brr, Crr, I, J, k, m
   Arr = Sheets(1).UsedRange
    On Error GoTo 100
    For n = 1 To 61
    h = UBound(Arr, n)
    Next
100
   ReDim Brr(1 To UBound(Arr), 1 To h)
   ReDim Crr(1 To UBound(Arr), 1 To h)
        k = 1
        m = 1
    For I = 1 To UBound(Arr)
      If Arr(I, 1) = "" Then
            For J = 1 To h
               Brr(k, J) = Arr(I, J)
            Next J
        k = k + 1
        Else
         For J = 1 To h
            Crr(m, J) = Arr(I, J)
          Next J
          m = m + 1
      End If
      Next I
    Worksheets("sheet4").Range("a2").Resize(k, h) = Brr
    Worksheets("sheet5").Range("a2").Resize(m, h) = Crr
End Sub