Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7042 / 76732 ←次へ | 前へ→

【75282】Re:特定の文字内の値抽出
お礼  VBA初心者  - 14/2/1(土) 8:59 -

引用なし
パスワード
   遅くなりすみません。

マクロが2種類となりましたが、目的は達成できました。
ありがとうございました。

Sub Sgy1()
Dim GYo As Long
Dim myStr As String
Dim tmp As Variant

For GYo = 6 To 10000
If Cells(GYo, 4).Value = 1 Then
myStr = Cells(GYo - 2, 4).Value
tmp = Split(Cells(GYo - 2, 4), " ")
Cells(GYo, 1) = tmp(0)
Cells(GYo, 2).Value = Mid(myStr, InStr(myStr, " ") + 2, InStr(myStr, "年") - InStr(myStr, " ") - 2)
Cells(GYo, 3).Value = Mid(myStr, InStr(myStr, "年") + 1, InStr(myStr, "月") - InStr(myStr, "年") - 1)

 End If
  Next GYo
End Sub


Sub Sgyo2()
Dim GYo As Long
Dim myStr As String
Dim tmp As Variant

For GYo = 6 To 10000
If 1 < Cells(GYo, 4).Value And Cells(GYo, 4).Value <= 100 Then
Cells(GYo, 1).Value = Cells(GYo - 1, 1).Value
Cells(GYo, 2).Value = Cells(GYo - 1, 2).Value
Cells(GYo, 3).Value = Cells(GYo - 1, 3).Value

 End If
  Next GYo
End Sub
0 hits

【75266】特定の文字内の値抽出 VBA初心者 14/1/25(土) 20:59 質問
【75269】Re:特定の文字内の値抽出 γ 14/1/26(日) 9:39 発言
【75271】Re:特定の文字内の値抽出 VBA初心者 14/1/26(日) 10:39 質問
【75275】Re:特定の文字内の値抽出 γ 14/1/28(火) 22:08 発言
【75282】Re:特定の文字内の値抽出 VBA初心者 14/2/1(土) 8:59 お礼

7042 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free