小编New*_*VBA的帖子

以下代码的目标是将选定的图表粘贴到文本下方的电子邮件正文中.但是,它会继续将其粘贴到我的文本上方.如何更改它以使其粘贴在下面？谢谢!

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .CC = "xyz@anc.com"
    .BCC = "abc@xyz.com"
    .Subject = "Test"
    .Body = "Dear" & "Macro "

    ActiveSheet.Range("P36:X46").Copy
    Set wEditor = OutApp.ActiveInspector.WordEditor

    wEditor.Application.Selection.Paste

.display

我正在尝试根据D列中的日期运行代码.以下代码有效.但条件格式的"if"部分需要+30个工作日,而不是30天.我假设WORKDAY函数有助于此.但是,当我尝试+工作日(30)和类似的事情时,我无处可去.

For Each oKey In oDictionary.keys
    Editing_Sheet.Range("A1").CurrentRegion.AutoFilter Field:=1,    Criteria1:=CStr(oKey)
    LastRowFiltered = Editing_Sheet.Cells(Rows.Count, "A").End(xlUp).Row
        If Range("D" & LastRowFiltered) <= Date + 30 Then
         'run code'

我有以下代码非常慢.关于如何加快速度的任何想法？

一些背景,在之前的Sub中我拍了一个范围,然后复制并粘贴它.现在我需要根据代码更改值.是否有可能采用这个范围并对其进行修改而不先粘贴它？

Sub ChangeArea()
    Dim Book As Workbook
    Dim Sheet As Worksheet
    Dim AreaRange As Range
    Dim LastRow
    Dim c As Range
    Set Book = Workbooks("Testing")
    Set Sheet = Book.Worksheets("Data")
    Sheet.Activate
    LastRow = Sheet.Cells(Rows.Count, "AG").End(xlUp).Row
    Set AreaRange = Sheet.Range("AG5:AG" & LastRow)
    For Each c In AreaRange.Cells
        If c.Value = "10" Then
            c.Value = "Mark"
        ElseIf c.Value = "will" Then
            c.Value = "William"
        ElseIf c.Value = "Uncle" Then
            c.Value = "Bill"
        ElseIf c.Value = "Roomate" Then
            c.Value = "Robert"
        Else: End …