Question

excel vba中sheet1读取内容到sheet2(只读取内容，不复制格式)

1.sheet1的J2:BF2读取内容到sheet2表的h2:h50(只读取内容，不复制格式)

Answer 1

sheet2.[a1:c3].value=sheet1.[a1:c3].value

或者自行录制一段复制sheet1内容，然后选择性粘贴-数值的宏也可以

追问

运行了，只是读取了一个单元的数据（也就是提取过来的数据全是第一个单元的）

追答

把代码发上来看看啊
sheet2.[a1:c3].value=sheet1.[a1:c3].value
两边区域是完全对应的

追问

Sub aaws()
Sheet4.[k2:k50].Value = SheetD1.[j2:bf2].Value
End Sub

追答

两个区域不符合啊？
一个多行一列，一个是行多列，不能这么赋值的
建议使用for循环赋值吧
for j =2 to 50

Sheet1.cells(2,j+8).Value=Sheet4.cells(j,"k").Value

next j

Answer 2

Sub a()
Sheet2.[h2:h50].Clear
Sheet2.[h2:h50] = Application.Transpose(Sheet1.[j2:bf2])
End Sub

追问

运行了，但是Sheet2.[h2:h50]的数据格式变了

追答

在我这里格式没变，你改成下面这样试试
Sub a()
Sheet2.[h2:h50].Clear
Sheet2.[h2:h50].value= Application.Transpose(Sheet1.[j2:bf2].value)
End Sub