gpt4 book ai didi

vba - 将字符串拆分为多个字符的函数

转载 作者:行者123 更新时间:2023-12-04 21:09:23 26 4
gpt4 key购买 nike

我想创建一个自定义函数,该函数采用选定的参数并将其内容拆分到不同的单元格上。

例子 :
A1=ABCDE
变成
B1=A, C1=B, D1=C, E1=D, F1=E
所以这就是我尝试的:

Function SplitWord(Word)
NbCar = Len(Word) // get the number of cardinals of the text
SplitWord = Left(Word, 1) // put the first letter in the cell that called the function
t = NbCar - 1
For i = 1 To t
ActiveCell.Offset(0, i) = Right(Left(Word, i), 1)
Next
End Function

最佳答案

  • 在单元格 A1 中输入要拆分的内容。
  • 将此粘贴到单元格 B1 中: =MID($A$1,COLUMN()-COLUMN($B$1)+1,1)
  • 向右拖动
  • 关于vba - 将字符串拆分为多个字符的函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21652468/

    26 4 0
    Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
    广告合作:1813099741@qq.com 6ren.com