Conas cealla bána os cionn / fágtha in Excel a chumasc go huathoibríoch?
San alt seo, beidh mé ag caint faoi chealla bána a chumasc os cionn nó a fhágáil go huathoibríoch mar atá thíos an pictiúr a thaispeántar. I ndáiríre, níl aon fhóntas ionsuite ann atá in ann an tasc seo a láimhseáil, ach is féidir leis na macra-chóid.
Cumaisc bearnaí thuas | ||
Cumaisc bearnaí ar chlé | ||
Cumaisc cealla bána thuas bunaithe ar cholún
Cumaisc cealla bána thuas (oibrigh don cholún aonair amháin)
Cumaisc cealla bána thuas bunaithe ar cholún
Má cheaptar go bhfuil raon sonraí i dtrí cholún, agus anois ba mhaith leat na sonraí thuas a chumasc bunaithe ar cholún C.
1. Brúigh Alt + F11 keys chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus cliceáil Ionsáigh > Modúil. Féach an pictiúr:
2. Ansin greamaigh thíos an cód leis an script bán. Féach an pictiúr:
VBA: Cumaisc bán thuas bunaithe ar an gcéad cholún eile
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. Brúigh F5 eochair chun an cód a rith, agus ansin tagann dialóg amach le cur i gcuimhne duit raon a roghnú le bheith ag obair. Féach an pictiúr:
4. cliceáil OK, ansin rinneadh na cealla bána a chumasc thuas. Féach an pictiúr:
Cumaisc cealla bána thuas (oibrigh don cholún aonair amháin)
Seo macra-chód ar féidir leis na cealla bána thuas a chumasc sa cholún sonraithe.
1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus cliceáil Ionsáigh > Modúil. Féach an pictiúr:
2. Greamaigh thíos an cód leis an script. Féach an pictiúr:
VBA: Cumaisc cealla bána thuas
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. Brúigh F5 eochair chun an cód a rith, agus tagann dialóg amach duit chun raon colún a roghnú. Féach an pictiúr:
4. Cliceáil OK. Agus rinneadh na cealla bána sa roghnú a chumasc thuas.
Cumaisc cealla bána fágtha
Más mian leat cealla bána ar chlé a chumasc, is féidir leis an gcód seo a leanas fabhar a thabhairt duit.
1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic le haghaidh fuinneog Feidhmchláir, agus cliceáil Ionsáigh > Modúil. Féach an pictiúr:
2. Ansin greamaigh thíos an cód leis an script bán. Féach an pictiúr:
VBA: Cumaisc bearnaí ar chlé
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. Brúigh F5 eochair chun an cód a rith, agus tagann dialóg amach duit chun raon a roghnú. Féach an pictiúr:
4. cliceáil OK. Rinneadh na cealla bána a chumasc ar chlé.
Cumaisc bearnaí ar chlé | ||
Cumaisc na cealla céanna nó an chill unmerge
|
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!