[已解决]求高手帮忙做个剪切命令

zjdh · 发表于 2012-3-25 11:31

本帖最后由 zjdh 于 2012-3-25 12:41 编辑

yty773436272 发表于 2012-3-25 10:24
朋友，不好意思，是我没有表达清楚，我是说把m3改为入账人，n3改为入账时间，入账类型不要了，当一行数据 ...

剪切命令2.rar (14.19 KB, 下载次数: 19)

雄鹰 · 发表于 2012-3-25 13:35

Sub 入账类型命令()
For i = Sheets("银行登记表").[n65536].End(xlUp).Row To 4 Step -1
  l = 0
  With Sheets("银行登记表")
For j = 1 To 14
   If Cells(i, j) <> "" Then l = l + 1
Next
  End With
If l = 14 Then
      Sheets("银行登记表").Select
      Sheets("银行登记表").Range("a" & i & ":n" & i).Select
      Selection.Cut
      Sheets("对账表").Select
      Range("a" & [A65536].End(xlUp).Row + 1 & ":n" & [A65536].End(xlUp).Row + 1).Select
      ActiveSheet.Paste
End If
Next
For i = Sheets("银行登记表").[A65536].End(xlUp).Row To 4 Step -1
k = 0
For j = 1 To 14
      If Sheets("银行登记表").Cells(i, j) = "" Then
         k = k + 1
      End If
Next
If k = 14 Then
      Sheets("银行登记表").Select
      Sheets("银行登记表").Rows(i).Select
      Selection.Delete Shift:=xlUp
End If
Next
End Sub

剪切命令.zip (17.98 KB, 下载次数: 12)

yty773436272 · 发表于 2012-3-27 21:56

本帖最后由 yty773436272 于 2012-3-28 00:30 编辑

zjdh 发表于 2012-3-25 11:31

朋友，剪切命令出现一个问题，就是如果我在前几行实现剪切命令，下面的行它不往上移，剪切后就会出现空白行，能不能用复制命令，在其他四张表里选择粘贴数字格式和内容命令，然后在银行登记表里删除此行的内容

zjdh · 发表于 2012-3-28 07:50

本帖最后由 zjdh 于 2012-3-28 07:54 编辑

yty773436272 发表于 2012-3-27 21:56
朋友，剪切命令出现一个问题，就是如果我在前几行实现剪切命令，下面的行它不往上移，剪切后就会出现空 ...

是直接用我的附件，还是你人工剪切了再用我的宏？
我的宏是复制一行删除一行，不该留有空白的！
请上传附件。

yty773436272 · 发表于 2012-3-29 01:03

zjdh 发表于 2012-3-28 07:50
是直接用我的附件，还是你人工剪切了再用我的宏？
我的宏是复制一行删除一行，不该留有空白的！
请上 ...

剪切命令.rar (15.55 KB, 下载次数: 5)

zjdh · 发表于 2012-3-29 07:56

你这已是另外一个问题了：
Sub TEST()
ActiveSheet.Unprotect Password:=1
  On Error Resume Next
ARR = Range("A4:N" & Range("N65536").End(3).Row + 1)
For I = UBound(ARR) To 1 Step -1
      If ARR(I, 14) <> "" Then
         If MsgBox("是否将单据：《 " & ARR(I, 2) & " 》的数据转入【 " & ARR(I, 14) & " 】工作表？", 4 + 32 + 256) = 6 Then
            Sheets(ARR(I, 14)).Unprotect Password:=1
            Rows(I + 3).Cut Sheets(ARR(I, 14)).Range("A65536").End(3)(2)
            Sheets(ARR(I, 14)).Protect Password:=1
            Rows(I + 3).Delete
End If: End If: Next
MsgBox "数据转录结束！"
ActiveSheet.Protect Password:=1
End Sub

yty773436272 · 发表于 2012-3-29 17:10

zjdh 发表于 2012-3-29 07:56
你这已是另外一个问题了：
Sub TEST()
ActiveSheet.Unprotect Password:=1

朋友，当我表格共享的时候此命令出现错误，这个问题我现在重新往上发

		自动登录	找回密码
密码			注册