Miten Excel-taulukon sarakkeen solut saa täytettyä kokonaan esim. tyhjillä merkeillä varsinaisen tekstin loputtua?
Taulukon sarakkeet pitäisi saada vakiopituisina ascii-tiedostoksi.
thh
Taulukon sarakkeet pitäisi saada vakiopituisina ascii-tiedostoksi.
thh
Vastaukset 1
Vanhimmat
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