我有笔记存储在Excel单元格中。我每次添加新笔记时都会添加换行符和日期。 我需要将其复制到另一个程序,但它的行限制为50个字符。我希望每个新日期换行,并且每个日期的评论超过50个字符。 我能做一个或另一个,但我无法弄清楚如何做到这两点。我更喜欢不分手的话,但此时我并不在意。 以下是一些示例输入。如果需要一个=SUBSTITUTE或=REPLACE函数,我可以~在输入中的每个日期之前添加一个作为分隔符。 样本输入: 07/03 - FU on query. Copies and history included. CC to Jane Doe and John Public 06/29 - Cust claiming not to have these and wrong PO on query form. Responded with inv sent dates and locations, correct PO values, and copies. 06/27 - New …
Sub xLator2() Dim s1 As Worksheet, s2 As Worksheet Dim N As Long, i As Long Dim from(), too() Set s1 = Sheets("Sheet1") ' contains the data Set s2 = Sheets("Sheet2") ' contains the translation table s2.Activate N = Cells(Rows.Count, 1).End(xlUp).Row ReDim from(1 To N) ReDim too(1 To N) For …