1

我想知道是否有人可以帮助我就如何清理 Excel 电子表格中的数据提出建议。

我有一个很长的清单需要查看。目前，我正在将数据列表（以获取一堆感兴趣的药物的名称）复制到 Excel 中。但问题是，每一行数据都有我不需要的无关信息。

例如：

Fluoride Updated 7/10/13
Acetaminophen Updated 8/10/13

我想创建一个只保留第一个文本的宏（在上面的例子中是氟化物和对乙酰氨基酚）并删除其余的。

有什么建议么？到目前为止，我已经尝试过“查找”和“全部替换”方法，但当然，由于每种药物的日期不同，这并不可行。

任何援助将不胜感激！

谢谢！

4

2 回答 2

1

由于您似乎对使用宏至少有点灵活，因此可以使用公式来为“极端情况”保留更多的灵活性。例如： 

=LEFT(A1,FIND(" ",A1))

在所有药物名称不包含空格的情况下（不太可能？），或者更有希望：

=LEFT(A1,FIND("Updated",A1)-2)

其中所有条目都包括“更新”。

对结果进行排序应该指出不适合解析的地方，并允许进一步调整以适应。

于 2013-08-27T15:53:41.407 回答
0

最简单的方法是创建一个宏，该宏对以空格作为分隔符的列执行文本

这假设数据在 Sheet1 的第一列

Dim shtWorking As Worksheet
Set shtWorking = Worksheets("Sheet1")
shtWorking.Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
    :=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array( _
    Array(1, 2), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
于 2013-08-27T15:53:22.947 回答