Question

VBA转换问题,请各位大侠搭救.

如何将图1黄色填充位置的数据通过保存按钮转换为数值格式,保存至图2黄色填充位置.注:图1黄色位置是带公式的.目前代码如下: 感谢各位指教.Sub 存()On Error GoTo 100 Dim es As Range, a% If Sheet2.[j:j].Find([E4]) = [E4] Then MsgBox "已经保存过了!请点击开单新建单号." Else100: Set es = Cells.Find("*", , xlFormulas, , , xlPrevious) a = Application.CountA(Sheet2.[b:b]) If es.Row = 5 Then MsgBox "没有填写内容": End Range([b6], es).Copy Sheet2.Cells(a + 1, 3) Sheet2.Cells(a + 1, "j").Resize(es.Row - 5) = [E4] '交货时间 Sheet2.Cells(a + 1, "b").Resize(es.Row - 5) = [e3] '专案号 Sheet2.Cells(a + 1, "i").Resize(es.Row - 5) = [b3] '客户 MsgBox "数据已保存!" End IfEnd Sub





Answer 1

假设：单元格"C1"值是由公式获得的，要把该值写到单元格“E1”，可以直接赋值来完成；
Sheet1.Range("E1") = Sheet1.Range("C1")

Answer 2

如果还是不行