1樓：匿名使用者
sub mm()
s = "91719.043 251636.734 0.364 1074.587 0.650"
s = trim(s)
m = ""
k = 0
for i = 1 to len(s)
if mid(s, i, 1) = " " thenif k = 0 then
k = i
m = m & mid(s, i, 1)
end if
else
m = m & mid(s, i, 1)
k = 0
end if
next
nn = split(m, " ")
end sub
2樓：
稍等哈，就是按空格拆分
sub 字串()
dim k
for i = 1 to [a65536].end(xlup).row
k = split(cells(i, 1), " ")for j = 0 to ubound(k)cells(i, j + 2).value = k(j)next
next
end sub
其實用資料--分列，最簡單
excel-vba中如何使用split來分割內部含有不定空格的字串
3樓：yty隨意
1、首先開啟office excel軟體，接著開啟vba編輯介面。
2、然後在單元格區域當中輸入一些內容。
3、接著在vba編輯器中插入模組。
4、在模組當中輸入如下**進行分割取線，然後執行。
5、最後在單元格b2中輸入公式「=division($a1,"/",column(a:a))」，然後右拉至d2，公式結果如圖所示。
4樓：匿名使用者
可以用正則把多個空格變成一個後，在splitdim reg,str as stringstr="a b c d"
set reg=createobject("vbscript.regexp")
reg.pattern="\s+"
msgbox reg.replace(str," ")'arr=split(reg.replace(str," ")," ")
5樓：excel辦公實戰
split語法為：split(要分割的內容，分隔符）根據題意，舉例如下：
1、split(內容," "),即可分割內部還有不定空格的內容2、分割後為一維陣列
3、空個數量不定，可能或產生空元素，需要迴圈，重新去除非空元素即可。
6樓：匿名使用者
先用多次的replace把雙空格轉換成單空格。
7樓：幸運的楊晨晨
system.out.println("asf1dskf 2 df(3)df".replaceall("[^\\d]*(\\d)[^\\d]*", "$1\n"));
vba 如何把一個陣列裡的值拼成一個字串
8樓：閃星
可以有，不過不是那種寫法哈
join函式
描述返回一個字串，該字串是通過連線某個陣列中的多個子字串而建立的。
語法join(list[, delimiter])join函式語法有如下幾部分：
部分 描述
list 必需的。包含被連線子字串的一維陣列。
delimiter 可選的。在返回字串中用於分隔子字串的字元。如果忽略該項，則使用空格(" ")來分隔子字串。
如果delimiter是零長度字串("")，則列表中的所有專案都連線在一起，中間沒有分隔符。
php把字串指定字元分割成陣列
相逢一笑泯仇恩 str 1 2 3 4 5 var explode str print r var var explode str 把 str按 進行分割 php還有其他的把字串指定字元分割成陣列str split string,length 引數 描述string 必需。規定要分割的字串。leng...
C 字串陣列如何作為函式引數
sizeof string 由於它們都是和系統相關的 我的作業系統是32位的 所以在不同的系統下取值可能不同，這務必引起注意，儘量不要在這方面給自己程式的移植造成麻煩。一般情況下，在32位系統中，sizeof string 為16位元組。sizeof都和記憶體中的儲存方式有關。你這裡沒有理清楚陣列函...
VB中，如何將字串分割成所需要的字元
dim s as string dim sv1 as string dim sv2 as string s s11 s20 s31 dl1 sv1 split s,1 redim sv2 ubound sv1 for x 0 to ubound sv1 sv1 x left sv1 x 2 sv2 ...