如何解决有效设置范围内的单元格值=另一个范围
我目前正在与
Dim ptWS As Worksheet,roneWS As Worksheet,rtwoWS As Worksheet,rthreeWS As Worksheet,rfourWS As Worksheet
Set ptWS = ThisWorkbook.Worksheets("PATIENT INFO copY-PASTE")
Set roneWS = ThisWorkbook.Worksheets("RACK 1")
Set rtwoWS = ThisWorkbook.Worksheets("RACK 2")
Set rthreeWS = ThisWorkbook.Worksheets("RACK 3")
Set rfourWS = ThisWorkbook.Worksheets("RACK 4")
roneWS.Range("E6:N6") = WorksheetFunction.Transpose(ptWS.Range("B2:B11"))
roneWS.Range("C7:N7") = WorksheetFunction.Transpose(ptWS.Range("B12:B23"))
roneWS.Range("C8:N8") = WorksheetFunction.Transpose(ptWS.Range("B24:B35"))
roneWS.Range("C9:N9") = WorksheetFunction.Transpose(ptWS.Range("B36:B47"))
roneWS.Range("C10:N10") = WorksheetFunction.Transpose(ptWS.Range("B48:B59"))
roneWS.Range("C11:N11") = WorksheetFunction.Transpose(ptWS.Range("B60:B71"))
roneWS.Range("C12:N12") = WorksheetFunction.Transpose(ptWS.Range("B72:B83"))
roneWS.Range("C13:N13") = WorksheetFunction.Transpose(ptWS.Range("B84:B95"))
rtwoWS.Range("E6:N6") = WorksheetFunction.Transpose(ptWS.Range("C2:C11"))
rtwoWS.Range("C7:N7") = WorksheetFunction.Transpose(ptWS.Range("C12:C23"))
rtwoWS.Range("C8:N8") = WorksheetFunction.Transpose(ptWS.Range("C24:C35"))
rtwoWS.Range("C9:N9") = WorksheetFunction.Transpose(ptWS.Range("C36:C47"))
rtwoWS.Range("C10:N10") = WorksheetFunction.Transpose(ptWS.Range("C48:C59"))
rtwoWS.Range("C11:N11") = WorksheetFunction.Transpose(ptWS.Range("C60:C71"))
rtwoWS.Range("C12:N12") = WorksheetFunction.Transpose(ptWS.Range("C72:C83"))
rtwoWS.Range("C13:N13") = WorksheetFunction.Transpose(ptWS.Range("C84:C95"))
rthreeWS.Range("E6:N6") = WorksheetFunction.Transpose(ptWS.Range("D2:D11"))
rthreeWS.Range("C7:N7") = WorksheetFunction.Transpose(ptWS.Range("D12:D23"))
rthreeWS.Range("C8:N8") = WorksheetFunction.Transpose(ptWS.Range("D24:D35"))
rthreeWS.Range("C9:N9") = WorksheetFunction.Transpose(ptWS.Range("D36:D47"))
rthreeWS.Range("C10:N10") = WorksheetFunction.Transpose(ptWS.Range("D48:D59"))
rthreeWS.Range("C11:N11") = WorksheetFunction.Transpose(ptWS.Range("D60:D71"))
rthreeWS.Range("C12:N12") = WorksheetFunction.Transpose(ptWS.Range("D72:D83"))
rthreeWS.Range("C13:N13") = WorksheetFunction.Transpose(ptWS.Range("D84:D95"))
rfourWS.Range("E6:N6") = WorksheetFunction.Transpose(ptWS.Range("E2:E11"))
rfourWS.Range("C7:N7") = WorksheetFunction.Transpose(ptWS.Range("E12:E23"))
rfourWS.Range("C8:N8") = WorksheetFunction.Transpose(ptWS.Range("E24:E35"))
rfourWS.Range("C9:N9") = WorksheetFunction.Transpose(ptWS.Range("E36:E47"))
rfourWS.Range("C10:N10") = WorksheetFunction.Transpose(ptWS.Range("E48:E59"))
rfourWS.Range("C11:N11") = WorksheetFunction.Transpose(ptWS.Range("E60:E71"))
rfourWS.Range("C12:N12") = WorksheetFunction.Transpose(ptWS.Range("E72:E83"))
rfourWS.Range("C13:N13") = WorksheetFunction.Transpose(ptWS.Range("E84:E95"))
考虑到我需要在所有目标工作表上使用的值的怪异位置，这是最有效的方法吗？
我不需要格式或其他任何东西，只需要单元格值。
最初，我只是在roneWS = ptWS单元上制作了所有单元，但是当我使用文档进行测试时，这带来了一个问题。因此，我正在寻找一种更好的方法，使ws1上的单元格值等于ws2，ws3和ws4上的单元格值，但采用特定格式，然后单击按钮将所有值导入到目标工作表中。复制范围内可以有空白。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
