[已解决]大神给我看一下保存到出库单后单元格的数字前面都有一个撇号

mnxy

大神给我看一下保存到出库单后单元格的数字前面都有一个撇号，帮我去掉，还有总计金额和总计面积只显示一行

最佳答案

月排行榜 / 总排行榜

sendsend

2023-2-18 14:12

                f1 = Sheet23.Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheet23.Range("A" & f1) = Format(b, "yyyy-m-d")    '日期
                Sheet23.Range("B" & f1) = "'" & tembh    '单号
                Sheet23.Range("C" & f1) = "'" & .Range("X1")    '单位编号
                Sheet23.Range("D" & f1) = "'" & A    '往来单位
                Sheet23.Range("E" & f1) = "'" & .Range("C4")    '地址
                Sheet23.Range("F" & f1) = "'" & .Range("g5")    '合计面积
                Sheet23.Range("G" & f1) = "'" & .Range("H4")    '玻璃规格
                Sheet23.Range("H" & f1) = "'" & .Range("B" & i)    '型号
                Sheet23.Range("I" & f1) = "'" & .Range("C" & i)    '高度
                Sheet23.Range("J" & f1) = "'" & .Range("D" & i)    '宽度
                Sheet23.Range("K" & f1) = "'" & .Range("E" & i)    '数量
                Sheet23.Range("L" & f1) = .Range("F" & i)    '面积
                Sheet23.Range("M" & f1) = .Range("G" & i)    '单价
                Sheet23.Range("N" & f1) = .Range("H" & i)    '金额
                Sheet23.Range("O" & f1) = "'" & .Range("c57")    '总计金额
                Sheet23.Range("P" & f1) = "'" & .Range("C58")    '定金
                Sheet23.Range("Q" & f1) = "'" & .Range("I59")    '付款情况
                Sheet23.Range("r" & f1) = "'" & .Range("c59")    '付款情况

不要撇号把相应的   "'"&   去掉就可以了。

跳转到最佳答案楼层

mnxy

自己顶一下，先谢谢了

砂海

这样提问 浪费别人时间 !


到底 是 哪个按钮 , 哪个功能 ? 让别人猜么?

sendsend

                f1 = Sheet23.Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheet23.Range("A" & f1) = Format(b, "yyyy-m-d")    '日期
                Sheet23.Range("B" & f1) = "'" & tembh    '单号
                Sheet23.Range("C" & f1) = "'" & .Range("X1")    '单位编号
                Sheet23.Range("D" & f1) = "'" & A    '往来单位
                Sheet23.Range("E" & f1) = "'" & .Range("C4")    '地址
                Sheet23.Range("F" & f1) = "'" & .Range("g5")    '合计面积
                Sheet23.Range("G" & f1) = "'" & .Range("H4")    '玻璃规格
                Sheet23.Range("H" & f1) = "'" & .Range("B" & i)    '型号
                Sheet23.Range("I" & f1) = "'" & .Range("C" & i)    '高度
                Sheet23.Range("J" & f1) = "'" & .Range("D" & i)    '宽度
                Sheet23.Range("K" & f1) = "'" & .Range("E" & i)    '数量
                Sheet23.Range("L" & f1) = .Range("F" & i)    '面积
                Sheet23.Range("M" & f1) = .Range("G" & i)    '单价
                Sheet23.Range("N" & f1) = .Range("H" & i)    '金额
                Sheet23.Range("O" & f1) = "'" & .Range("c57")    '总计金额
                Sheet23.Range("P" & f1) = "'" & .Range("C58")    '定金
                Sheet23.Range("Q" & f1) = "'" & .Range("I59")    '付款情况
                Sheet23.Range("r" & f1) = "'" & .Range("c59")    '付款情况

不要撇号把相应的   "'"&   去掉就可以了。

mnxy

sendsend 发表于 2023-2-18 14:12
f1 = Sheet23.Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheet23.Rang ...

谢谢，撇号去了，就是销售单入库过来的总计金额和总计面积能不能只显示一个

mnxy

砂海 发表于 2023-2-18 13:40
这样提问 浪费别人时间 !

这个是销售入库统计的数据

mnxy

砂海 发表于 2023-2-18 13:40
这样提问 浪费别人时间 !

这个是销售入库统计的总计金额和总计面积，现在是重复着只显示一行总计金额和面积就可以了

砂海

'''
我在 XX界面 (xx工作表) ,
使用 xx功能后 ,
结果 ...
'''
==================
只说结果 , 别人慢慢再去找来源 ? 一次说清楚更方便交流