Question

VBA在excel 表中如何将两个单元格内容写入到一个单元格并且用/分隔

VBA代码编写 复制sheet1两个单元格的数值，粘贴至sheet2一个单元格内，并且以“/”分隔

Answer 1

代码类似于
sheet2.Range("C1")=sheet1.Range("A1") & "/" & sheet1.Range("B1")

追问

可以了 不过复制过来小数点前的0没了是怎么回事？

追答

可以试试以下
Sheet4.Cells(k, 8) = Sheet3.Cells(i, 5).Text & "/" & Sheet3.Cells(i, 6).Text

Answer 2

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C&" / "&Sheet1!R[-1]C[1]"

追问

是这么写吗？

追答

R[-1]C这个你可以用 Cells(x,y)去设定，这边就是抓单元格用的，写法有很多种，看你习惯用哪种方式

追问

我用着个写也复制过来了 Sheet4.Cells(k, 8) = Sheet3.Cells(i, 5) & "/" & Sheet3.Cells(i, 6)
但是小数点前的0没了

追答

我测试的状况是没有的，不知道你做了啥...

Sheets("Sheet3").Select

ActiveSheet.Cells(1, 3) = ActiveSheet.Cells(1, 1) & "/" & ActiveSheet.Cells(1, 2)