小编Rya*_*yan的帖子

谢谢你看看我的问题.知道我是stackoverflow和VBA的新手我有一个很长的宏,我一直在努力.在宏中的一点,我必须将"开始深度"(L)和"结束深度"(M)从"m"转换为"ft".然后我减去两个以找到"素材"(N).但是,列中的某些值最初保留为空白.所以,在进行了我的转换和减法后,我留下了"#VALUE!" 这是后来在宏中给我的错误.最初我在转换和减法之前将所有空白更改为0.但是,在"完成"宏之后,我意识到零正在弄乱呈现数据.所以,我只想进行转换和减法,然后更改所有"#VALUES!" 回到空白.我发现了一些这方面的东西,但我无法(我知道)使用或特定于我:http: //www.ozgrid.com/forum/showthread.php ？t = 60740 和 https://superuser.com /问题/ 715744/EXCEL-2010-配方怎么办-我-写这个配方,VBA

这是我用来将空格改为0的方法

Worksheet1.Select
lastrow = Range("A666666").End(xlUp).Row
For Each cell In Range("A1:Q" & lastrow)
    If Len(cell.Value) = 0 Then
        cell.Value = 0
    End If
Next

这是导致错误的代码.注意:数据以空格开头,使用这些公式后,我会收到错误,因为一些原始单元格以null或空格开头.此外,这些行不是这个顺序,但它们是留下错误的行.

ActiveCell.FormulaR1C1 = "=CONVERT(RC[2],""m"",""ft"")"
Selection.AutoFill Destination:=Range("N2:O2"), Type:=xlFillDefault
Selection.AutoFill Destination:=Range("N2:O" & lastrow)
Range("N1") = "Footage"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Selection.AutoFill Destination:=Range("N2:N" & lastrow)

任何帮助表示赞赏.多谢你们!

当您在Outlook中单击全部回复时,它将打开一个新的电子邮箱,但会在您的电子邮件正文下方显示上一个电子邮件主题.我想在Outlook和输入信息中全部回复所选的电子邮件.我想从Excel中的宏中完成所有这些操作.我的问题是,如果我尝试写回复全部的正文,它会删除整个以前的电子邮件主题.

Sub test()

Dim mail 'object/mail item iterator
Dim replyall 'object which will represent the reply email

For Each mail In Outlook.Application.ActiveExplorer.Selection
    If mail.Class = olMail Then
        Set replyall = mail.replyall
        With replyall
            '.Body = "blah blah hello world"  '<-- uncomment and it will delete the thread
            .Display
        End With
    End If
Next

End Sub

注意:我最接近的是这个,但它删除了我的签名,电子邮件分隔符和最新电子邮件中的标题信息:

.Body = "blah blah hello world" & mail.body

任何解决方案都赞赏!谢谢!