Miten Excel-taulukon sarakkeen solut saa täytettyä kokonaan esim. tyhjillä merkeillä varsinaisen tekstin loputtua?
Taulukon sarakkeet pitäisi saada vakiopituisina ascii-tiedostoksi.
thh
Excel-sarakkeen täyttö
THH
1
333
Vastaukset
moduuliin...
oletuksena, etta taulukko alkaa A1 ja laittaa valilyonnin tyhjiin soluihin. Voit muuttaa merkin jos tarvetta Range(sarake.Address).Offset(vika, 0).Resize(rivit - vika, 1) = " " = merkin jalkeen lainausmerkkien sisaan
Sub Tayta()
Dim rivit As Integer
Dim vika As Integer
On Error Resume Next
rivit = Range("A1").CurrentRegion.Rows.Count
For Each sarake In Range("A1").CurrentRegion.Columns
vika = Range(sarake.Address).End(xlDown).Row
If vika rivit Then
Range(sarake.Address).Offset(vika, 0).Resize(rivit - vika, 1) = " "
End If
Next
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Olet toisen kanssa
...ja minä yhä vain sinua kaipaan. Tiedän ettet ole onnellinen siellä. Älä hukkaa aitoa onnea ja rakkautta hukkaan vain2251628- 371509
Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!741360Kuka teistä on paras nainen
A-nainen? J-nainen? K-nainen? M-nainen? S-nainen? Vai kenties joku muu...? 😊631319- 781224
Osaako joku selittää tätä
Että miksi mulle on joka toinen ventovieras ihminen tyly ainakin ilmeillään ja eleillään?761209Jos me joskus nähtäisiin
niin ei kai sen vielä tarvitsisi merkitä sen enempää? Ja voihan olla ettei kumpikaan enää siinä vaiheessa edes haluaisi1031183- 541018
Persun suusta:"Köyhät on luusereita ja ansaitsevat köyhyyden"
Ministeri Juuston apulainen näin uhoaa. Mitäs siinä. Kyllä on jo tiedetty muutaman vuoden hallitustyön pohjalta että per183922- 53767