Conas colúin a thrasuí go sraitheanna agus sraitheanna nua a chur isteach chun sonraí a líonadh in Excel?
San Airteagal seo, tugaim isteach cód VBA chun colúin a thrasuí go sraitheanna agus sraitheanna nua a chur isteach chun sonraí a líonadh mar atá thíos an pictiúr a thaispeántar, má tá suim agat san oibríocht seo, téigh chuig thíos le haghaidh tuilleadh sonraí.
Sraitheanna a thrasuí agus a chur isteach le VBA
Sraitheanna a thrasuí agus a chur isteach le VBA
Níl aon bhealach díreach ann raon a thrasuí agus sraitheanna a chur isteach chun na sonraí céanna a líonadh, ach anseo is féidir liom cód VBA a thabhairt isteach chun an tasc seo a réiteach go tapa.
1. Brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh faoi bhun chód VBA chuig fuinneog an Mhodúil. Féach an pictiúr:
VBA: Sraitheanna a thrasuí agus a chur isteach.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Brúigh F5 eochair chun an cód a rith, agus ansin roghnaigh an raon sonraí a theastaíonn uait sraitheanna a thrasuí agus a chur isteach sa dialóg popping. Féach an pictiúr:
4. cliceáil OK. Agus athraíodh an raon roghnaithe mar atá thíos an pictiúr a thaispeántar.
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á!