Note: The other languages of the website are Google-translated. Back to English

Conas bileoga nua a chruthú do gach ró in Excel?

Ag cur san áireamh go bhfuil tábla scórála agat le hainm an dalta ar fad i gcolún A. Anois, ba mhaith leat bileoga nua a chruthú bunaithe ar na hainmneacha seo i gcolún A, agus tá sonraí ar leith an mhic léinn i ndéanamh in aghaidh na bileoige. Nó cruthaigh bileog nua do gach ró amháin sa tábla gan na hainmneacha i gcolún A a mheas. Sa vedio seo, gheobhaidh tú modhanna chun é a bhaint amach.

Cruthaigh bileoga nua do gach ró le cód VBA
Cruthaigh bileoga nua do gach ró le fóntais Sonraí Scoilt Kutools le haghaidh Excel


Cruthaigh bileoga nua do gach ró le cód VBA

Leis na cóid seo a leanas, is féidir leat bileog nua a chruthú bunaithe ar luachanna na gcolún, nó díreach bileoga nua a chruthú do gach ró in Excel.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin greamaigh an cód seo a leanas isteach sa Modúil fhuinneog.

Cód VBA: cruthaigh bileog nua do gach ró bunaithe ar cholún

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

nótaí: A1: Is é C1 raon teidil do thábla. Is féidir leat é a athrú bunaithe ar do chuid riachtanas.

3. Brúigh F5 eochair chun an cód a rith, ansin cruthaítear bileoga oibre nua tar éis gach bileog oibre den leabhar oibre reatha mar atá thíos ar an scáileán:

Más mian leat bileoga nua a chruthú go díreach do gach ró gan smaoineamh ar luach an cholúin, is féidir leat an cód seo a leanas a úsáid.

Cód VBA: Cruthaigh bileog nua go díreach do gach ró

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Tar éis an cód a rith, cuirfear gach ró i mbileog oibre gníomhach i mbileog oibre nua.

nótaí: Cuirfear an tsraith cheannteidil i mbileog nua leis an gcód VBA seo.


Cruthaigh bileoga nua do gach ró le fóntais Sonraí Scoilt Kutools le haghaidh Excel

I ndáiríre, tá an modh thuas casta agus deacair a thuiscint. Sa chuid seo, tugaimid an Scoilt Sonraí fóntais de Kutools le haghaidh Excel.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Roghnaigh an tábla a chaithfidh tú a úsáid chun bileoga nua a chruthú, agus ansin cliceáil Kutools Plus> Sonraí Spit. Féach an pictiúr:

2. Sa Roinn Sonraí i mBileoga Oibre Il bosca dialóige, déan mar a leanas, le do thoil.

A. Chun bileoga nua a chruthú bunaithe ar luach an cholúin:

1). Roghnaigh an Colún sonrach rogha, agus sonraigh colún ar mhaith leat sonraí a roinnt air bunaithe ar an liosta anuas;
2). Más mian leat na bileoga oibre a ainmniú le luachanna colúin, roghnaigh le do thoil Luachanna an Cholúin sa Rialacha liosta anuas;
3). Cliceáil ar an OK cnaipe. Féach an pictiúr:

B. Chun bileoga nua a chruthú go díreach do gach ró:

1). Roghnaigh Sraitheanna seasta rogha, iontráil uimhir 1 isteach sa bhosca;
2). Roghnaigh Uimhreacha Rae ó na Rialacha liosta anuas;
3). Cliceáil ar an OK cnaipe. Féach an pictiúr:

cruthaítear leabhar oibre nua leis na bileoga nua go léir istigh ann. Féach na scáileáin scáileáin thíos.

Bileoga nua a chruthú do gach ró bunaithe ar luach an cholúin:

Bileog nua a chruthú do gach ró gan smaoineamh ar luach an cholúin:

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.

Cruthaigh bileoga nua do gach ró le fóntais Sonraí Scoilt Kutools le haghaidh Excel


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (33)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ansin, ba mhaith liom bileoga oibre a chruthú bunaithe ar mo chomhad teimpléad Myformat agus iad a ainmniú de réir sonraí an chéad cholúin. Rinne mé an cód VBA a shaincheapadh mar seo a leanas, ach tá an iomarca bileoga bána á ghiniúint aige. An bhféadfá cabhrú liom le do thoil stop a chur le bileoga bána a ghiniúint. Go raibh maith agat. Kumar Fo AddSheets() Cill dimle Mar Excel.Range Dim wsWithSheetNames Mar Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = Set ActiveSheet wbToAddSheetsTo = Leabhar Oibre Gníomhach Do Gach cill I wsWithSheetNames.Range("A2:A165") Le withSheetNames. Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dimple\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Ar Earráid Lean ar aghaidh leis an gcéad dul síos ActiveSheet.Name = cell.Value If Err.Number = 1004 Ansin Debug.Print cell.Value & " in úsáid cheana mar ainm bileoige" Críochnaigh Má Ar Déanamh Earráid Téigh Go 0 Deireadh Leis an gCill Eile Fo Deiridh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Faighim 2 bhileog in aghaidh na hiontrála uathúil ar A row i gcónaí. Aon smaoineamh cén fáth? Chomh maith leis sin cé chomh deacair is a bheadh ​​sé méid iomlán na sraitheanna a chruthaíonn an leathán ginte a réamh-mheas ar ainm na bileoige. Go raibh míle maith agat! Cuir in iúl dom má ghlacann tú síntiúis.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ansin, ba mhaith liom mo theimpléad comhaid exel MyFormat a úsáid chun bileoga oibre a ghiniúint agus na bileoga oibre a ainmniú de réir na sonraí ar an gcéad cholún. Tá an cód VBA seo a leanas ag obair ceart go leor chun na bileoga oibre a ghiniúint de réir MyFormat. Ach tá na céadta leathán bán á ghiniúint aige ar ghnáthshampla excel freisin. An bhféadfadh corp éigin cabhrú liom le do thoil chun stop a chur le barraíocht leatháin bhána a ghiniúint. Go raibh maith agat Kumar Fo AddSheets() Cill caol Mar Excel.Range Dim wsWithSheetNames Mar Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = Set ActiveSheet wbToAddSheetsTo = Leabhar Oibre Gníomhach Do Gach cill I wsWithSheetNames.Range("A2:A165") .Add After:= ActiveSheet Sheets.Add Type:= _ "C:\Users\Dreamline\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Ar Earráid Lean ar aghaidh Ar Aghaidh ActiveSheet.Name = cell.Value If Err.Number = 1004 Ansin Debug.Print cell.Value & " in úsáid cheana mar ainm bileoige" Críochnaigh Má Ar Earráid Téigh Go 0 Deireadh Leis an gCill Eile Fo Deiridh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bileoga Oibre Caithfidh ainmneacha a bheith níos lú ná nó cothrom le tríocha carachtar.
Ní eolas an-choitianta é, ach ar shlí eile aschuirfidh an cód bileog oibre "Bileog #" bán réamhshocraithe.

Cruthaigh bileog oibre nua a rithfidh do chód parsála agus déan tagairt don chéad cholún mar seo a leanas:
=IF(OR('Bunaidh Thagartha'! B1<>"", LEN('Bunaidh Thagartha'!B1)>30), LEFT('Bunaidh Thagartha'! B1,30), 'Bunaidh Thagartha'!B1)


Déan cóip den bhileog nó déan tagairt don chuid eile den bhileog mar is féidir. Cinntigh go bhfuil an colún saor ó shrianta bailíochtaithe sonraí má bhíonn aon fhadhb agat agus tú ag tagairt don bhileog oibre eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as é seo a phostáil!!!! D'oibrigh cosúil le charm. An féidir leat a mhíniú conas a oibríonn an chéad sraith cód?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as seo!



Sa chód VBA an bhfuil ar aon nós na bileoga iarmhartacha a ainmniú ó shonraí an chéad agus an dara colún le chéile?



mar sin is "linda 2" a bheadh ​​ar bhileog 100 mar shampla
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Joyce a chara,
Go raibh maith agat as do thuairim! Tá súil agam gur féidir leis an script VBA thíos cabhrú leat.

Fo-pharse_sonraí()
Dim xRunt Chomh fada
Dim xSht Mar Bhileog Oibre
Dim xNSht Mar Bhileog Oibre
Dim I Chomh Fada
Dim xTRrow Mar Shlánuimhir
Dim xCol Mar Bhailiúchán Nua
Dim xTitle As Teaghrán
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Socraigh xSht = ActiveSheet
xRCount = xSht.UsedRange.End(xlDown).Row
xTitle = "A1:B1"
xTRrow = xSht.Range(xTitle).Row
Chun I = 2 Go xRCCount
Glaoigh ar xCol.Add(CStr(xSht.Cells(I, 1)), CStr(xSht.Cells(I, 1)))
Ar Aghaidh
Debug.Print xCol.Count
Do I = 1 Go xCol.Count
Glaoigh ar xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I))))
Socraigh xNSht = Ní dhéanfaidh aon ní
Socraigh xNSht = Bileoga Oibre(CStr(xCol.Item(I))))
Mura bhfuil xNSht ar bith ansin
Socraigh xNSht = Bileoga Oibre.Add(, Bileoga(Bileoga.Count))
xNSht.Name = CStr(xCol.Item(I) & xSht.Cells(I + 1, 2))
Eile
xNSht.Move , Bileoga(Bileoga.Count)
Deireadh Má
xSht.Range ("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Ar Aghaidh
xSht.AutoFilterMode = Bréagach
xSht.Gníomhachtaigh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí sé seo thar a bheith cabhrach, díreach an rud a bhí á lorg agam. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo an-chabhrach, agus beagnach cad a bhí á lorg agam.
Ach an féidir é a choigeartú ionas go mbeidh dhá bhileog -
Is é atá i mBileog 1 ná na Sonraí - tábla sonraí a bhfuil Colún A mar ainm air
Teimpléad is ea Bileog 2, agus is gá go leor réimsí a líonadh
Is é an rud a bhí súil agam ná macra a rith, rud a dhéanfaidh
1 Cóipeáil-greamaigh an teimpléad, sa chomhad céanna, ainmnigh an bhileog mar an t-ainm i gCill A1
2 Cóipeáil cill B1 ansin anuas go dtí réimse roghnaithe sa teimpléad nua
3 arís feadh ró 1 go dtí go folamh
4 ansin arís le haghaidh sraith 2 agus gach sraith go dtí an deireadh.
Is comhad é an toradh le x uimh. leatháin uile mar an gcéanna leis an teimpléad, agus na réimsí go léir líonta isteach.
Fuair ​​​​mé comhad le hoidhreacht a oibríonn an bealach eile, ag baint sonraí ó theimpléid go tábla, ach ní féidir é a aisiompú .....
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Sam, a chara,
Bheadh ​​sé go deas dá bhféadfá do leabhar oibre a cheangal anseo.
Is féidir leat do chomhad a uaslódáil leis an gcnaipe Uaslódáil Comhaid thíos.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit rinne mé iarracht do chód a úsáid ach fuair mé earráid
Earráid ama rite '1004':
Earráid a shainmhínítear le feidhm nó earráid shainithe ó thaobh réad
Níl aon eolas agam ar VBA (ná ar aon teicneolaíocht ar an ábhar sin) ach má dhéantar dífhabhtú preasa léiríonn sé líne 11 xRCount=xSht.Cells(xSht.Rows.Count,1). Críoch (xIUp).Roimhe
Táim ag obair le comhad mór ina bhfuil 127 colún agus 337 sraitheanna (ní athróidh sraitheanna colúin) agus is liosta é le huimhreacha Ba mhaith liom agus a gcuid sonraí.
D'athraigh mé an raon mar a thug tú faoi deara ach ní oibríonn sé fós Tá mé ag baint úsáide as Excel 2010 an bhféadfá insint dom le do thoil conas é a chur ag obair más féidir
Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Beatriz a chara,
Nuashonraítear an cód leis an bhfadhbréiteach. Bain triail eile as. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is dóigh liom go bhfuil rud éigin úsáideach anseo do mo chás, ach táim in ann VBA nó script a dhéanamh, tá súil agam gur féidir leat cabhrú.
Tá teimpléad agam le go leor cealla le líonadh le sonraí, agus beidh eochair chuardaigh (neamh-uathúil) ar mhaith liom a chur isteach sa teimpléad. Bunaithe ar an eochair chuardaigh, déantar na sonraí a chuardach agus sonraí comhfhreagracha ar an eochair chomhoiriúnaithe a fháil agus a líonadh isteach sa teimpléad. Sábháiltear an teimpléad líonta isteach i mbileog oibre nua. B’fhéidir go bhfuil níos mó ná iontráil chluiche amháin ann. Teastaíonn an script uaim chun leanúint leis an gcuardach síos ar an liosta, go dtí go roghnófar na cluichí go léir, agus go gcruthófar líon áirithe bileoga oibre nua.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil bealach ann chun an ceannteideal a choinneáil ar gach bileog oibre nua? (ciorcail dearg ar mo cheangaltán)

Tógann an cód na sraitheanna go léir ó mo mháistir-bhileog oibre agus aistrítear iad go bileoga oibre nua, rud atá iontach. Ach ba mhaith liom mo luach ceannteidil "máistir" a choinneáil (ciorcail i dearg) ag barr gach bileog oibre nua. Go raibh maith agat!



Táim ag tagairt don chód seo thuas:

Fo RowToSheet()
Dim xRow Chomh fada
Dim I Chomh Fada
Le Bileog Ghníomhach
xRow = .Raon("A" & Rónna.Count).Deireadh(xlUp).Row
Chun I = 1 Go xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row" & I
.Rows(I).Cóipeáil Bhileoga("Row" & I).Raon("A1")
Ar Aghaidh I.
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód iontach, ach an bhféadfainn cabhair a fháil má tá mo chuid sonraí ar cholún G seachas ar cholún A? cad is gá dom a athrú chun sonraí Cholún G a bheith i gcluaisíní difriúla?

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is cód iontach é seo. Míle buíochas le boscaí inchinne ag OfficeExtend!! An féidir an cód seo a oiriúnú ar aon nós chun bileoga ar leith a chruthú do gach *colún* in ionad ró? Tá pictiúr ceangailte agam den méid atá mé ag iarraidh a bhaint amach. An bhfuil sé seo indéanta? Mise le meas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Ní fhaca mé do phictiúr anseo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hii , conas an cód a mhodhnú, má tá réimse m'ainm i gcolún C
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Abdul Basit,
Is féidir leis an gcód VBA thíos cabhrú leat. Bain triail as, le do thoil.
Sa líne: xCName = "3", léiríonn 3 uimhir an cholúin (seo an colún C) in Excel. Is féidir leat é a athrú go dtí aon uimhir cholúin de réir mar is gá duit.

Fo-pharse_sonraí()
'Nuashonraigh le Extendoffice 2018 / 3 / 2
Dim xRunt Chomh fada
Dim xSht Mar Bhileog Oibre
Dim xNSht Mar Bhileog Oibre
Dim I Chomh Fada
Dim xTRrow Mar Shlánuimhir
Dim xCol Mar Bhailiúchán Nua
Dim xTitle As Teaghrán
Dim xSupdate Mar Boole
Dim xCName Mar Shlánuimhir
Dim xTA, xRA, xSRg1 Mar Theaghrán
Socraigh xSht = ActiveSheet
Ar Lean Earráid Aghaidh
xRCount = xSht.Cells(xSht.Rows.Count, 1).Deireadh(xlUp).Row
xTitle = "A1:C1"
xCName = "3" 'Athraigh an uimhir seo go dtí uimhir an cholúin a gcruthóidh tú bileoga nua bunaithe air
xTRrow = xSht.Range(xTitle).Cealla(1).Row
Chun I = 2 Go xRCCount
Glaoigh ar xCol.Add(xSht.Cells(I, xCName).Text, xSht.Cells(I, xCName).Text)
Ar Aghaidh
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Bréagach
xSRg = xSht.Cells(1, xCName).Seoladh(RowAbsolute:=Bréagach, ColúnAbsalóideach:=Bréagach)
Do I = 1 Go xCol.Count
Glaoigh ar xSht.Range(xTitle).AutoFilter(xCName, CStr(xCol.Item(I))))
Socraigh xNSht = Ní dhéanfaidh aon ní
Socraigh xNSht = Bileoga Oibre(CStr(xCol.Item(I))))
Mura bhfuil xNSht ar bith ansin
Socraigh xNSht = Bileoga Oibre.Add(, Bileoga(Bileoga.Count))
xNSht.Name = CStr(xCol.Item(I))
Eile
xNSht.Move , Bileoga(Bileoga.Count)
Deireadh Má
xSht.Range ("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Ar Aghaidh
xSht.AutoFilterMode = Bréagach
xSht.Gníomhachtaigh
Application.ScreenUpdating = xSUpdate
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód VBA fionnuar chun an cleas a dhéanamh.

Conas is féidir liom é a mhodhnú chun gan an chéad cholún a chóipeáil? Agus chun an t-ainm colún a bhaint?

Maidir is
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir liom cabhair a fháil le do thoil maidir le conas na bileoga a ainmniú go huathoibríoch ag baint úsáide as colún ar leith. Tá sé seo le haghaidh an ró a leathán VBA. Féach thíos

Fo RowToSheet()

Dim xRow Chomh fada

Dim I Chomh Fada

Le Bileog Ghníomhach

xRow = .Raon("A" & Rónna.Count).Deireadh(xlUp).Row

Chun I = 1 Go xRow

Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row" & I

.Rows(I).Cóipeáil Bhileoga("Row" & I).Raon("A1")

Ar Aghaidh I.

Deireadh Le

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní chuimhneamh go raibh sé i bhfolach spásanna trailing. D'úsáid mé an ghné TRIM agus ghlan mé suas é. Bheadh ​​sé iontach comhaireamh rónna a bheith agat (comhaireamh líne i ndáiríre mar sin sraitheanna -1 réamhullmhaithe ar an mbileog)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas tagairt a dhéanamh d’úsáid an chóid thuas (creidmheas) ? An féidir an cód a mhodhnú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is ardán cumarsáide oscailte é seo. Tá cead ag an gcód tagairt a dhéanamh agus é a mhodhnú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nana
86
2
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit! D'úsáid mé an cód seo agus d'oibrigh sé! Chomh maith le bileog nua a chruthú do gach iontráil, ba mhaith liom é a thrasuí go colúin agus ní féidir liom é a dhéanamh amach. Mar sin don sampla thuas, is mar seo a bheadh ​​an t-aschur do Nana - Ainm NanaScór 86Uimh 2
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, d'úsáid an cód seo agus d'oibrigh sé, ach Más mian liom roghnaigh an níos mó ansin sraitheanna amháin i gceanntásc, cad a athrú ar an gcód ? Tá línte iolracha agam sa bhileog a theastaíonn uaim i ngach bileog.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an raibh a fhios agat conas?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil cód ann nach gcuirfeadh ach 1 leathán nua leis gach uair a rithfí an macra, m.sh. inneachar A1 etc. go raibh maith agat in oirchill
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL