質問編集履歴
2
修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
エクセル VBA
|
|
1
|
+
エクセル VBA
|
body
CHANGED
|
@@ -1,28 +1,5 @@
|
|
|
1
|
-
エクセルvbaで特定の文字から次の空白行まで貼り付けるという指定方法をご教示ください。
|
|
1
|
+
エクセルvbaで特定の文字から次の空白行まで貼り付けるという指定方法をご教示ください。
|
|
2
2
|
|
|
3
|
-
差出人によってシートを分けて作成していますが
|
|
4
|
-
実際に必要なのは赤い文字部分だけです。
|
|
5
|
-
|
|
6
|
-
F列にある特定の文字は2種類で1.File List:ではじまるものか、Product No. ：ではじまるものです。
|
|
7
|
-
Sheet1
|
|
8
|
-
空白
|
|
9
|
-
1.File List:
|
|
10
|
-
BBBBBBBBBBB V1.0
|
|
11
|
-
CCCCCCCCCCCCCCCCCCCCCCCCCC
|
|
12
|
-
空白
|
|
13
|
-
|
|
14
|
-
か
|
|
15
|
-
Sheet2
|
|
16
|
-
|
|
17
|
-
空白
|
|
18
|
-
Product No. ：AAAAAAAA
|
|
19
|
-
Product name:BBBBBB
|
|
20
|
-
Date :2020/12/07
|
|
21
|
-
Ver. :V1.0
|
|
22
|
-
Caution :***********
|
|
23
|
-
空白
|
|
24
|
-
|
|
25
|
-
のような表が貼り付けてあるProduct No. ：で始まる部分になります。
|
|
26
3
|
```VBA
|
|
27
4
|
Sub Macro1()
|
|
28
5
|
Dim myStr As String
|
|
@@ -31,11 +8,6 @@
|
|
|
31
8
|
myStr = Range("F3")
|
|
32
9
|
findStr = "1. File List:"
|
|
33
10
|
findNo = InStr(myStr, findStr)
|
|
34
|
-
Range("G3") = Right(myStr, Len(myStr) - findNo)
|
|
11
|
+
Range("G3") = Right(myStr, Len(myStr) - findNo)
|
|
35
12
|
End Sub
|
|
36
|
-
```
|
|
13
|
+
```
|
|
37
|
-
（やりたいこと）
|
|
38
|
-
上記コードでG列に取って来るところまできたのですが、空白までの3行あるいは5行だけ列の一番下の行まで抽出する方法がありましたらご教示ください。
|
|
39
|
-
また、最終行までを選択する方法が myStr = Range("F3")のところを
|
|
40
|
-
Range("F3",Range("F3").End(xlDown))と記載するとデバックとなってしまいました。
|
|
41
|
-
よろしくお願いいたします。
|
1
追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
File without changes
|