如何用VBA實現(xiàn)分列和提取單元格文本？fori4cancells(,4)end(3).rowcells(i,4)split(split(cells(i,4),)(1),，)(0)nextvba刪除單元

如何用VBA實現(xiàn)分列和提取單元格文本？

fori4cancells(,4)end(3).row

cells(i,4)split(split(cells(i,4),)(1),，)(0)

next

vba刪除單元格內(nèi)容代碼？

方法/步驟不勝感激

1

/9

1.再打開電腦，直接點擊鼠標右鍵，選擇新建一個Excel文件。

2

/9

2.再打開新建的Excel文件，編輯的話表格，錄入電腦數(shù)據(jù)。

3

/9

3.你選Excel界面上方的“開發(fā)工具”選項，后再再點擊“宏”選項。

4

/9

4.寫上VBA代碼的名稱，然后把直接點擊“創(chuàng)建角色”按鈕。

5

/9

5.在VBA編輯器界面，中寫入重新指定的VBA代碼，后再再點擊關(guān)閉按鈕。

6

/9

6.然后點擊插入一個按鈕控件。

7

/9

7.將按鈕控件名稱之前為“刪掉單元格”，然后再再點右鍵，選擇“委托宏”選項。

8

/9

8.你選擇早編譯程序能夠完成的VBA代碼，然后再點擊“確定”按鈕。

9

/9

9.直接點擊按鈕控件，單元格就自動刪掉能夠完成了

vba常用代碼有哪些？

我以前總結(jié)歸納過我廣泛的一些，見

要注意的實用點代碼片段如下：

##實用點代碼片段

###文件能操作

####摘錄可以打開的工作簿

在用索引號（從1結(jié)束）

```vbnetWorkbooks(1)

```

建議使用工作簿名稱

```vbnetWorkbooks(1.xlsx)

```

####修改一個EXCEL工作簿對象

```vbnet

Dimwdas

DimwblikeWorkbook

SetwdCreateObject()

True

Setwb(amp/test.xls)

...

wd.Quit

```

####打開/存放/直接關(guān)閉工作簿

```vbnet

DimwblikeWorkbook

wb(amp/test.xls)

...

```

直接關(guān)閉所有工作簿

```vbnet

```

另存（不自動再打開新文件關(guān)掉源文件）

```vbnet

FileName:D:1.xls

```

另存為（保留源文件不打開新文件）

```vbnet FileName:D:1.xls

```

####拷貝文件

```vbnet

oldfileamp/old.xlsx

newfileamp/next.xlsx

FileCopyoldfile,newfile

```

####文件復制文件夾

```vbnet

SetfsoCreateObject()

srcDir,dstDir

```

####徹底刪除文件夾下的所有文件

```vbnet

baseamp/文件夾/

patternbaseamp*.*

fileDir(pattern,vbReadOnly)

Whilefileltgt

Killbaseampfile

fileDir

Wend

```

####修改文件夾

```vbnetMkDir(directory)

```

####推測文件夾有無存在

以下為不存在即創(chuàng)建

```vbnetIf Dir(outputDir,16)Empty ThenMkDir(outputDir)

EndIf

```

####確定文件是否需要必然

方法1：

```vbnet

DimfileSystemObjectandObject

SetfileSystemObjectCreateObject()

If(ltfilepathgt)TrueThen

MsgBox文件未知

EndIf

```

方法2：

```vbnet

DimfileasStringile Dir()

IffileltgtThen

MsgBox文件修真者的存在

Endif

```

###格式不能操作

####可以設置邊框與自動篩選

```vbnetSet Rng With Rng With

```

####某些的或設置里單元格背景色

```vbnet

MyWorkSheet.Cells(i,j)

```

####讓某表格選中后的單元格都變成指定顏色

在thisworkbook中添加:代碼段：

```vbnet

PrivateSubWorkbook_SheetSelectionChange(ByValShthoughObject,ByValjumptosuchRange)

IfyoursheetThen

0

6

EndIf

EndSub

```

####在單元格里回車/換行

系統(tǒng)設置單元格Value里可以使用`Chr(10)`和`Chr(13)`，分別可以表示回車、換行。

####刻意隱藏行

```vbnet

(i).HiddenTrue

```

####單元格內(nèi)容為純文本

```vbnet

sheet.Cells(m,n).NumberFormatLocal@

```

####設置中單元格公式

```vbnet

ofEachcelofActiveSheet.Range(C1:C10)

SUBSTITUTE(Aamp()amp