我有一个宏,它使用循环从一张纸上获取数据并将其复制到另一张纸上,将它们按照数组确定的顺序排列。相关代码:
For counter = 1 To 358 Step 1
Sheets("data").Cells(inputrow, counter + 1) = Sheets("Sheet1").Cells(rowarray(counter), colarray(counter))
Sheets("sheet1").Cells(rowarray(counter), colarray(counter)).Clear
Next counter
输入表受到保护,您放置数据的单元格已解锁,但每次运行宏时,这些单元格都会再次被锁定。我不知道造成这种情况的原因是什么让它变得疯狂。请帮忙!
答案 0 :(得分:1)
.Clear
正在删除未锁定的格式。请改用.ClearContents
。