有效设置范围内的单元格值=另一个范围

编程问答 2022-06-03

问题描述

我目前正在与

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 (将#修改为@）

excelexcelexcel-2016vba