我复制一行后只想清空数据，不但数据没有了，格式边框都没有了

okzmz001 · 发表于 2018-10-9 14:18

Sub 增加人员()
Dim a, b
a = Range("X1")
b = Range("Y1")
Application.ScreenUpdating = False
ActiveSheet.Unprotect MyBookPassword
      Rows(a & ":" & a).Select
      Selection.Copy
      Rows(b + 1 & ":" & b + 1).Select
      ActiveSheet.Paste
      Selection.EntireRow.Hidden = False
      Rows(b & ":" & b).ClearContents

   'ActiveSheet.Protect MyBookPassword
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True '关闭屏幕更新可加快宏的执行速度

Range("b" & b + 1).Select '返回到b列最后一行
End Sub

lijian318 · 发表于 2018-10-9 14:22

本帖最后由 lijian318 于 2018-10-9 14:24 编辑

你这个代码就是只清空数据吧

okzmz001 · 发表于 2018-10-9 14:31

Rows(b & ":" & b).ClearContents
有了上面一句，但是我的边框属性都没有粘贴一样

扑腾 · 发表于 2018-10-9 15:02

可F8一行行运行试试，看是那里问题

okzmz001 · 发表于 2018-10-9 15:12

都一个一个的测试了，没有找出问题在哪儿

okzmz001 · 发表于 2018-10-9 15:18

可以了，已经解决，谢谢各位

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

[已解决] 我复制一行后只想清空数据，不但数据没有了，格式边框都没有了