国产成人啪精品视频免费网-国产成人啪精品视频免费网站软件-国产成人盗拍精品免费视频-国产成人深夜福利在线观看-a中文字幕1区-a毛片

二維碼
企資網(wǎng)

掃一掃關(guān)注

當(dāng)前位置: 首頁 » 企資快訊 » 匯總 » 正文

Excel_VBA學(xué)習(xí)筆記_單元格的chara

放大字體  縮小字體 發(fā)布日期:2023-02-24 11:58:36    作者:百里安苛    瀏覽次數(shù):73
導(dǎo)讀

單元格的.Characters 屬性,常用于取關(guān)鍵字,給關(guān)鍵字標(biāo)注用于區(qū)別的顏色。語法:Range.Characters(Start, Length);Start 起始位置,表示從第幾個字符起;Length 取幾位字符。.Characters返回的是一個對象。示例:

單元格的.Characters 屬性,常用于取關(guān)鍵字,給關(guān)鍵字標(biāo)注用于區(qū)別的顏色。

語法:Range.Characters(Start, Length);Start 起始位置,表示從第幾個字符起;Length 取幾位字符。.Characters返回的是一個對象。

示例:將標(biāo)紅的字符取出,并分段顯示。

一般的處理思路:是用循環(huán)判斷單個字符顏色,再判斷紅色字符是否連續(xù),有多長,再輸出。用到循環(huán)嵌套,多重判斷。

Set Rng = Range("A1") 有紅色 = False 輸出計數(shù) = 1 For i = 1 To Len(Rng.Value) n = i 'i 值是標(biāo)紅的起始位置,(n-1)值記錄連續(xù)標(biāo)紅字符的終止位置 Do While Rng.Characters(n, 1).Font.Color = vbRed n = n + 1 有紅色 = True If n > Len(Rng.Value) Then '防止n 大于字符串長度出錯 Exit Do End If Loop If 有紅色 Then '出現(xiàn)標(biāo)紅字符,進行輸出 Cells(輸出計數(shù), "C") = Mid(Rng.Value, i, n - i) 'n-i 就是標(biāo)紅字符的長度 輸出計數(shù) = 輸出計數(shù) + 1 有紅色 = False i = n - 1 'i值跳到標(biāo)紅字符最后,避免重復(fù)判斷 End If Next i

其實,反向思考下,將黑色字符都換成“空格”,紅色字符就留下了,再以“空格”為分隔,不就得到了所需。這個思路以處理黑色字符為思路。下面代碼明顯簡單清晰多了。

Set Rng = Range("A1") For i = 1 To Len(Rng.Value) If Rng.Characters(i, 1).Font.Color = vbRed Then t = t & Rng.Characters(i, 1).Text '記錄下紅色的字符 Else t = t & " " '黑色的字符都被換成空格 End If Next i t = WorksheetFunction.Trim(t) '調(diào)用工作表函數(shù) Trim 對空格進行處理 arr = Split(t) Range("b1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)

本示例意在拓展思維,當(dāng)直接處理數(shù)據(jù)很麻煩時,反方向考慮下,說不定有奇效。

附:VBA 里去“空格”函數(shù) Trim,LTrim,RTrim

VBA 中Trim 去除字符串頭尾部的空格,中間的空格不進行任何處理;

LTrim 本意去掉左邊的空格,就是去除位于字符串頭部的空格;

RTrim 本意去掉右邊的空格,就是去除位于字符串尾部的空格。

而工作表函數(shù)Trim,不光去除頭尾部的空格,還將字符串中間的連續(xù)空格合成 1個空格。

見下圖中t1 、 t2值

 
(文/百里安苛)
免責(zé)聲明
本文僅代表作發(fā)布者:百里安苛個人觀點,本站未對其內(nèi)容進行核實,請讀者僅做參考,如若文中涉及有違公德、觸犯法律的內(nèi)容,一經(jīng)發(fā)現(xiàn),立即刪除,需自行承擔(dān)相應(yīng)責(zé)任。涉及到版權(quán)或其他問題,請及時聯(lián)系我們刪除處理郵件:weilaitui@qq.com。
 

Copyright ? 2016 - 2025 - 企資網(wǎng) 48903.COM All Rights Reserved 粵公網(wǎng)安備 44030702000589號

粵ICP備16078936號

微信

關(guān)注
微信

微信二維碼

WAP二維碼

客服

聯(lián)系
客服

聯(lián)系客服:

在線QQ: 303377504

客服電話: 020-82301567

E_mail郵箱: weilaitui@qq.com

微信公眾號: weishitui

客服001 客服002 客服003

工作時間:

周一至周五: 09:00 - 18:00

反饋

用戶
反饋

主站蜘蛛池模板: 国产成人综合在线 | 国产女王女m视频vk 国产女王丨vk | 久久99精品久久久久久综合 | 色网址在线观看 | 精品国产免费久久久久久 | 久久久久久久久久久久福利 | 青青草国产免费国产是公开 | 亚洲精品美女在线观看播放 | 欧美日韩亚洲国产精品 | 亚洲视频一| 久久w5ww成w人免费不卡 | 久久手机视频 | 免费 视频 1级 | 国产成人精品午夜视频' | 国产91会所洗浴女技师按摩 | 男女视频在线观看免费高清观看 | 爽爽日本在线视频免费 | 免费看久久 | 精品91一区二区三区 | 欧美精品videos | 中文国产成人精品久久一区 | 亚洲精品久久久久综合91 | 永久免费91桃色福利 | 美女很黄很黄免费的 | 日韩毛片欧美一级a网站 | 国产盗摄精品一区二区三区 | 老师张开腿让我爽了一夜视频 | 色噜噜狠狠大色综合 | 国产高清在线视频 | 性高湖久久久久久久久aaaaa | 手机看片自拍自自拍日韩免费 | 欧美日韩亚洲综合久久久 | 国产黄色激情视频 | 国产日韩欧美精品一区 | 成人国产三级在线播放 | 亚洲国产精品67194成人 | 国产精品美女视视频专区 | 午夜在线亚洲男人午在线 | 亚洲国产成人精品一区91 | 亚洲天堂精品在线观看 | 日韩日韩日韩手机看片自拍 |