[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(Å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 „
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
C³‚ðŽwŽ¦‚³‚ꂽŽž‚ÉA‚³‚Á‚Ï‚è‚í‚©‚ç‚È‚¢‚Æ¢‚é‚Ì‚ÅBBB
Seiya‚³‚Ü‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
T–¾‚¯‚ÉŠm”F‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚·B
i‘¾˜Yj 2019/03/08(‹à) 18:50
'Œ³ƒ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
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.