[已解决]请问如何用VBA读取子表格中的区域数据？

chrislt52346

grf1973 发表于 2014-5-23 15:46
ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(n,1) = application.transpose(xl.Sheets("银联").Rang ...

试用了一下，确实是这个意思，不过为什么读行17列7的子表格，在母表格中显示的确是7行17列？

chrislt52346

grf1973 发表于 2014-5-23 15:46
ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(n,1) = application.transpose(xl.Sheets("银联").Rang ...

我改成ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(n,1) = application.transpose(application.transpose(xl.Sheets("银联").Range("B2").resize(n,1)))
后解决了，谢谢

grf1973

要是两边都是列的话，不用转置。ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(n,1) = xl.Sheets("银联").Range("B2").resize(n,1).value 就行了

chrislt52346

grf1973 发表于 2014-5-26 08:39
要是两边都是列的话，不用转置。ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(n,1) = xl.Sheets("银联 ...

谢谢，两边都是20行10列左右的表格。

grf1973

ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(20,10) = xl.Sheets("银联").Range("B2").resize(20,10).value

chrislt52346

grf1973 发表于 2014-5-26 08:43
ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(20,10) = xl.Sheets("银联").Range("B2").resize(20,10 ...

明白了，谢谢

请问如何在读取xl.Sheets("银联").Range("B2").resize(20,10).value的数据后，再读取出该区域每一单元格的颜色？

grf1973

如果银联表中没有公式，可以直接复制。如果有公式，可以先复制后数值化。
xl.Sheets("银联").Range("B2").resize(20,10).copy ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(20,10)    '复制
ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(20,10).value=ThisWorkbook.Sheets("sheet1").Cells(i, 2).resize(20,10) .value   '数值化

chrislt52346

grf1973 发表于 2014-5-26 09:39
如果银联表中没有公式，可以直接复制。如果有公式，可以先复制后数值化。
xl.Sheets("银联").Range("B2"). ...

谢谢，子表格是有公式的。所以应该用第二行的那个对吧？
请问这个公式是不是颜色、字体、格式、内容会一起复制到母单元格中？

grf1973

1、没公式只用第一行，有公式两行都用。
2、会。

chrislt52346

谢谢您