如何使用VBA修剪列中的文本-Excel [英] How to trim text in a column with VBA - Excel

问题描述

如何修剪列中每个单元格中的文本?

How can I trim a the text in each cell in a column?

如果语法类似于:"[e-mail](名称名称)"，并且我要删除列中仅保留"blabla"的列中所有单元格中的"@ twitter.com(名称名称)"细胞.

If the syntax is like: "[e-mail] (name name)" and I want to delete "@twitter.com (name name)" from all cells in the column being left with only "blabla" in the cells.

有什么想法吗?

推荐答案

找到了解决方案:

Dim cellHolder As String
For Each cell In Range("A1:A10")
    cellHolder = cell.Value
    cellHolder = Left(cellHolder, InStr(cellHolder, "@") - 1)
    cell.Value = cellHolder
Next cell

这篇关于如何使用VBA修剪列中的文本-Excel的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！