Sub quotation()
    Dim str As String
    str = Trim(ActiveCell)
    str = """" & str & """"
    ActiveCell.Value = str
    'ActiveCell.FormulaR1C1 = "=CONCATENATE("""""""",TRIM(RC[-2]),"""""""")"
    
End Sub


舅舅，我是吴福群，打你几次电话你也没接，你们都是我长辈，我也不知道怎么说你们的事，但我爸那是也是为了帮你，你现在这样说他，要他怎么接受得了，我爸是农村人，老实本分，你呢？老板级别的人物！现在为了你的事，我爸妈在家里吵架，我妈还有心脏病，两个老人身体都不好，我爸为了这事还要寻死觅活的，要是真的有个三长两短，你怎么对得起我爸妈，怎么面对我们，望三思，尽快联系我爸，商量解决这个事情，谢谢！

<p>辞职书</p>

<p>尊敬的单位领导：</p>

<p>考虑到单位人员精简的需要及我个人的一些情况，特提出离职申请，望批准为谢！</p>

<p>吴万群</p>

<p>2018.5.22</p>

<p>xa01525204544</p>


舅舅，我是吴福群，先向您问好！
关于家里帮你借钱一事，我妈刚才给了电话给我，现在他俩闹得不可开交！真担心闹出什么事来。
你们都是长辈，道理无须我多说。
我只想说的是，我爸当时愿意答应你，在如今这样一个缺乏信任的社会，是何其难得！
我知道您当时也只是气头上如此说而已，现在气头过了，事情还得解决，辛苦你给过电话给家里吧！
请回复为谢！




<p>test</p>