[[20190308120340]]@wƒZƒ‹‚Ì®—xi‘¾˜Yj@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]

@

wƒZƒ‹‚Ì®—xi‘¾˜Yj

     ‚`     ‚a     ‚b     ‚c     ‚d     ‚e     ‚f     ‚g
1) 1     ‚      ‚¢     ‚¤
2) 2     ‚¦     ‚¨     
3) 1     ‚©     ‚«
4) 2     ‚­     
5) 3     ‚¯
6) 5     ‚±

csvƒtƒ@ƒCƒ‹‚©‚çƒCƒ“ƒ|[ƒg‚µ‚½ƒtƒ@ƒCƒ‹‚ª‚±‚Ì—l‚Èó‘Ô‚Å¢‚Á‚Ä‚¢‚Ü‚·B
‚`—ñ‚ª2‚Ìꇂ͂d‚©‚çA3‚Ìꇂ͂g‚©‚çA4‚Ìꇂ͂j‚©‚ç5‚Ìꇂ͂m‚©‚ç
‚Æ‚¢‚Á‚½ƒf[ƒ^‚É‚µ‚½‚¢‚Ì‚Å‚·‚ª‚Ç‚¤‚·‚ê‚Ηǂ¢‚©‚¨’mŒb‚ð‚¨‘Ý‚µ‚­‚¾‚³‚¢B

     ‚`     ‚a     ‚b     ‚c     ‚d     ‚e     ‚f     ‚gBBBB
1) 1     ‚      ‚¢     ‚¤     ‚¦     ‚¨
2) 2     ‚©     ‚«              ‚­                        ‚¯ BBBBB

ƒ Žg—p ExcelFExcel2003AŽg—p OSFWindowsXP „


Sub main()
'Œ³ƒf[ƒ^Sheet1‚ðSheet2‚É“]‹L
    Dim rw As Long, cl As Long, c As Range
    Sheets("Sheet2").Cells.Clear
    For Each c In Range("A1").CurrentRegion.SpecialCells(2)
        If c.Column <> 1 Then
            Sheets("Sheet2").Cells(rw, cl + c.Column).Value = c.Value
        Else
            cl = Application.Choose(c.Value, 0, 3, 6, 9, 12)
            If c.Value = 1 Then rw = rw + 1
            Sheets("Sheet2").Cells(rw, 1).Value = rw
        End If
    Next c
End Sub
immj 2019/03/08(‹à) 12:56

 CSV‚©‚ç’¼Ú“Ç‚Ýž‚Ý

 Sub test()
     Dim fn As String, a, x, y, i As Long, ii As Long, n As Long, temp
     fn = Application.GetOpenFilename("CSVFiles,*.csv")
     If fn = "False" Then Exit Sub
     x = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll, vbCrLf)
     ReDim a(1 To 100000, 1 To 1)
     For i = 0 To UBound(x)
         If x(i) <> "" Then
             y = Split(x(i), ",")
             If (IsNumeric(y(0))) * (UBound(y) > 0) Then
                 n = n + 1
                 a(n, 1) = y(0) & String(Val(y(0)) * 3 - 3, ",")
                 If UBound(y) > 0 Then
                     For ii = 1 To UBound(y)
                         If y(ii) <> "" Then a(n, 1) = a(n, 1) & "," & y(ii)
                     Next
                 End If
             End If
         End If
     Next
     With Cells(1).Resize(n)
         .Value = a
         .TextToColumns .Cells(1), 1, , , , , True
     End With
 End Sub
iseiyaj 2019/03/08(‹à) 13:11

mm‚³‚Ü
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
ƒR[ƒh‚ðƒRƒs[‚·‚é‚Ì‚ÉŽžŠÔ‚ª‚©‚©‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B
ˆêu‚Å‚Å‚«‚ÄŠ´“®‚µ‚Ü‚µ‚½B
‚à‚µ‚æ‚낵‚¯‚ê‚ÎAƒR[ƒh‚̈Ӗ¡‚ð‹³‚¦‚Ä‚¢‚½‚¾‚¯‚È‚¢‚Å‚µ‚傤‚©H

C³‚ðŽwŽ¦‚³‚ꂽŽž‚ÉA‚³‚Á‚Ï‚è‚í‚©‚ç‚È‚¢‚Æ¢‚é‚Ì‚ÅBBB

Seiya‚³‚Ü‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
T–¾‚¯‚ÉŠm”F‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚·B

i‘¾˜Yj 2019/03/08(‹à) 18:50


Sub main‰ðà•t()
 'Œ³ƒf[ƒ^Sheet1‚ðSheet2‚É“]‹L
    Dim rw As Long, cl As Long, c As Range
    Sheets("Sheet2").Cells.Clear 'Sheet2‚ðƒNƒŠƒA‚µ‚Ü‚·i‘O€”õj

    For Each c In Range("A1").CurrentRegion.SpecialCells(2)
    'Sheet1‚̃Zƒ‹A1‚ÌCurrentRegion(ƒwƒ‹ƒv‚Å’²‚ׂê‚΂킩‚è‚Ü‚·‚ªA
    'A1‚ð‘I‘ð‚µ‚ÄACTRL+SHIFT+:‚Ì‚RƒL[‚𓯎ž‚ɉŸ‚·‚Æ‘I‘ð‚³‚ê‚Ü‚·B
    'A1‚ðŠî€‚É‹ó”’siƒTƒ“ƒvƒ‹‚Å‚¢‚¦‚΂Vs–Új‚Æ‹ó”’—ñiƒTƒ“ƒvƒ‹‚Å‚¢‚¦‚ÎE—ñj‚ň͂í‚ꂽ“à‘¤”͈͂ðŽæ“¾‚µ‚Ü‚·BiƒTƒ“ƒvƒ‹‚Å‚¢‚¦‚ÎA1:D6‚Å‚·j
    'SpecialCells(2)‚Æ‚¢‚¤‚Ì‚ÍA’蔂̓ü—Í‚³‚ꂽƒZƒ‹‚Å‚·B
    '‚µ‚½‚ª‚Á‚ÄRange("A1").CurrentRegion.SpecialCells(2)‚Æ‚¢‚¤‚Ì‚ÍA
    'CTRL+SHIFT+:‚Ì‚RƒL[‚𓯎ž‚ɉŸ‚·‚Æ‘I‘ð‚³‚ê‚é”͈͂̂¤‚¿A’蔂ª“ü—Í‚³‚ê‚Ä‚¢‚éƒZƒ‹‚Å‚·B
    '‚Ü‚½for each c `next ‚Æ‚¢‚¤‚Ì‚ÍAã‚͈̔͂̊eƒZƒ‹‚ɂ‚¢‚ĈêƒZƒ‹‚ˆ—‚·‚é‚Æ‚¢‚¤ˆÓ–¡‚Å‚·B
        If c.Column <> 1 Then
            Sheets("Sheet2").Cells(rw, cl + c.Column).Value = c.Value
        Else
        'ã‚͈̔͂̊eƒZƒ‹‚ÅA1—ñ–Úi‚·‚È‚í‚¿A—ñj‚Ìê‡
        '‚±‚ê‚Í”Žš‚ª“ü‚Á‚Ä‚¢‚é‚Ì‚Å,‚±‚Ì”Žš‚É‚æ‚Á‚Ä“]‹@æ‚Ì—ñ‚ð‚¸‚ç‚·•K—v‚ª‚ ‚è‚Ü‚·B
        'Choose‚É‚æ‚Á‚ÄA1‚Ìꇂ͂¸‚炳‚È‚¢A2‚ÌꇂÍE‚©‚ç‚È‚Ì‚Å3—ñ‚¸‚ç‚·B
        '3‚ÌꇂÍH‚©‚ç‚È‚Ì‚Å6—ñ‚¸‚ç‚·B‚Æ‚¢‚¤ˆÓ–¡‚Å‚·i•Ï”cl‚É‚¸‚ç‚·—ñ”‚ðŠi”[j
            cl = Application.Choose(c.Value, 0, 3, 6, 9, 12)
            '1—ñ–Úi‚·‚È‚í‚¿A—ñj‚Ì’l‚ª1ꇂÍASheet2‚ð‰üs‚·‚é•K—v‚ª‚ ‚é‚Ì‚ÅAs”(•Ï”rw)‚ð‚P‘‚â‚·B
            If c.Value = 1 Then rw = rw + 1
            Sheets("Sheet2").Cells(rw, 1).Value = rw
        End If
    Next c
End Sub
immj 2019/03/11(ŒŽ) 09:27

ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.