Excel中用vba删除特定字符后面的所有内容

2025-01-04 22:55:08

推荐回答（2个）

回答1：

楼上说的替换更简单，一定需要VBA的话，代码如下：

Option Explicit

Sub 宏1()
    Dim arr, i, n, x
    n = Range("f1").End(xlDown).Row
    arr = Range("f1").Resize(n, 1)
    For i = 1 To n
        x = InStr(arr(i, 1), "组")
        If x > 0 Then arr(i, 1) = Left(arr(i, 1), x)
    Next i
    Range("f1").Resize(n, 1) = arr
End Sub

回答2：

按Ctrl+H，查找内容输入组*，替换为输入组，点击全部替换。

最新问答

我是个新手会计，想请教下制造公司的成本会计需要了解哪些基本的内容？越具体越好。

电脑开不了机，就是电脑电源键亮着，但是屏幕黑着。不知道怎么办求解

大一高数不定积分

学习古筝要有音准吗？是不是音准找不准，就弹出准确的曲子啊？

寻找一首粤语歌~女歌手唱的....歌词“醉了又醉...随着风里去”

求原图谢谢俶俶俶

求一份婚礼帮帮团安排表，比如总管、迎宾、支客等还有哪些，顺序是怎样的？

#include <stdio.h> #include <stdlib.h> int main(int argc, char *argv[]) { int i,k; for(i=1;i<=4

练习口语的软件，什么英语口语软件好?

谁能给个实况足球2012的下载种子或地址, 只要V1.02版本的。