1樓：陽光上的橋
option explicit
sub ygb()
dim i, j, k, s, arr
i = 2
while cells(i, "k") <> ""
j = 13 'm列
for each s in split(cells(i, "k"), "/")
arr = split(s, "(")
cells(i, j) = arr(lbound(arr))s = arr(ubound(arr))
k = mid(s, 3, len(s) - 3)if left(s, 2) = "os" thencells(i, j + 1) = k
else
cells(i, j + 2) = k
end if
j = j + 3
next s
i = i + 1
wend
end sub
2樓：樂在天邊
資料》分列》分隔符號》逗號
3樓：紅邈
看了這個展示的資料，應該是要vba進行處理。
4樓：匿名使用者
你沒有列舉完，最後一行157(os238)對應後面的資料是不對的，好像你還有os3這一項吧？
excel vba，從字串中提取數字。
如何用excel中的vba的正規表示式提取出字串？
5樓：匿名使用者
sub t()
s = "柴塘河節制閘3300×4960平面鋼版閘門權"set regxp = createobject("vbscript.regexp")
with regxp
.global = true
.pattern = "\d+"
for each m in .execute(s)debug.print m
next
end with
end sub
6樓：魚木混豬
軟體版本：office2007
方法如下：
1.利用正規表示式，提取a列的數字，並對數字求和：
2.alt+f11，輸入**如下：
3.f5執行**，返回excel，得到結果：
excel vba如何使用正規表示式把字串裡字母和數字替換，字母替換為a,數字替換為0
7樓：人生苦短就用
一張**解決你所有問題，細看
function 替換(檢測內容) as stringdim regx as object '後期繫結
set regx = createobject("vbscript.regexp") '後期繫結
dim mat as object
dim m as object
dim 返回內容 as string
set regx = new regexpwith regx
.global = true
'如果檢測內容中含有非字母和非數字則返回"失敗"
.pattern = "\w"
set mat = .execute(檢測內容)if mat.count <> 0 then替換 = "失敗"
exit function
end if
'替換字線為a，數字為0，單個字母替換,返回替換後的字元.pattern = "[a-za-z]"
返回內容 = .replace(檢測內容, "a").pattern = "[0-9]"
替換 = .replace(返回內容, "0")end with
end function
sub test()
cells(2, "b") = 替換(cells(1, "b"))cells(2, "c") = 替換(cells(1, "c"))end sub
excel用vba提取字串
8樓：築夢
可以使用函式提取一個字串中的一段字元。 mid 用來返回文字字串中從指定位置開始的特定數目的字元,該數目由使用者指定， 函式 mid 始終將每個字元。
應該用到三個字串函式：left、right、midleft函式用法：left（要提取字元所在單元格,從左側開始提取的個數)。
right函式用法：right(要提取字元所在單元格,從右側開始提取的個數）。
mid函式用法：mid(要提取字元所在單元格,開始位置，提取個數）。
9樓：匿名使用者
mid(源字串，起始位號x，提取長度m)；返回第x位起m個字元。要求：起始位號+提取長度<=源字串長度+1
left(源字串，左側擷取長度x)；返回左側x個字元right(源字串，右側擷取長度y)；返回右側y個字元instr(源字串，待查詢子字串u)；返回子字串首字元在源字串中的起始位號
chr(65)；返回字母a
......
10樓：匿名使用者
提取怎麼樣的字串，儲存到**？請描述清楚。
excel-vba中如何使用split來分割內部含有不定空格的字串
11樓：yty隨意
1、首先開啟office excel軟體，接著開啟vba編輯介面。
2、然後在單元格區域當中輸入一些內容。
3、接著在vba編輯器中插入模組。
4、在模組當中輸入如下**進行分割取線，然後執行。
5、最後在單元格b2中輸入公式「=division($a1,"/",column(a:a))」，然後右拉至d2，公式結果如圖所示。
12樓：匿名使用者
可以用正則把多個空格變成一個後，在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," ")," ")
13樓：excel辦公實戰
split語法為：split(要分割的內容，分隔符）根據題意，舉例如下：
1、split(內容," "),即可分割內部還有不定空格的內容2、分割後為一維陣列
3、空個數量不定，可能或產生空元素，需要迴圈，重新去除非空元素即可。
14樓：匿名使用者
先用多次的replace把雙空格轉換成單空格。
15樓：幸運的楊晨晨
system.out.println("asf1dskf 2 df(3)df".replaceall("[^\\d]*(\\d)[^\\d]*", "$1\n"));
asp擷取字元長度，asp 擷取字串的函式怎麼寫
left 要擷取的字串，要擷取的長度 從左邊開始擷取指定長度的字元 right 要擷取的字串，要擷取的長度 從右邊開始擷取指定長度的字元 mid 要擷取的字串,開始擷取的位置,要擷取的長度 從任意位置開始擷取指定長度的字元 mid 201109110820 1,4 年 mid 20110911082...
VB如何讀取字串中的指定字元
vb6.0使用mid 函式來讀取字串中指定數量的字元。mid 函式 返回 variant string 其中包含字串中指定數量的字元。語法 mid 函式示例 本示例使用 mid 語句來得到某個字串中的幾個字元。dim mystring,firstword,lastword,midwords myst...
如何提取字串中的字元為新的變數
c語言字元處理把一個字串中指定字元賦值給另一字串可以使用substr函式提取子串。基本使用方法 substr 原字串,起始位置,提取字元個數 例如輸入一段文字 一隻小狐狸拒絕被人圈養 str1把小狐狸複製給另一字串str2substr str1,5,6 怎樣獲取某字串中的部分字串，作為變數 用sub...