質問編集履歴
2
コードの挿入
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
|
|
14
14
|
### 該当のソースコード
|
|
15
15
|
|
|
16
|
-
Dim wb As Workbook
|
|
16
|
+
```Dim wb As Workbook
|
|
17
17
|
Dim sh As Worksheet
|
|
18
18
|
Dim rE As Long
|
|
19
19
|
Dim i As Long
|
|
@@ -68,6 +68,8 @@
|
|
|
68
68
|
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
69
69
|
End Sub
|
|
70
70
|
|
|
71
|
+
コード
|
|
72
|
+
```
|
|
71
73
|
|
|
72
74
|
|
|
73
75
|
### 試したこと
|
1
コードを囲みました。画像を挿入しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -41,7 +41,7 @@
|
|
|
41
41
|
End Sub
|
|
42
42
|
|
|
43
43
|
Private Sub CommandButton1_Click()
|
|
44
|
-
|
|
44
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
45
45
|
'開始する行
|
|
46
46
|
toprow = 5
|
|
47
47
|
'終了する行
|
|
@@ -52,10 +52,11 @@
|
|
|
52
52
|
Range("B5:L74").Rows(i).ClearContents
|
|
53
53
|
End If
|
|
54
54
|
Next
|
|
55
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
55
56
|
End Sub
|
|
56
57
|
|
|
57
58
|
Sub Tumeru()
|
|
58
|
-
|
|
59
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
59
60
|
j = 5
|
|
60
61
|
For k = 5 To Range("B" & Rows.Count).End(xlUp).Row
|
|
61
62
|
If (Range("B" & k).Rows <> "") Then
|
|
@@ -64,7 +65,7 @@
|
|
|
64
65
|
Range("B" & k).Resize(, 11) = ""
|
|
65
66
|
End If
|
|
66
67
|
Next k
|
|
67
|
-
|
|
68
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
68
69
|
End Sub
|
|
69
70
|
|
|
70
71
|
|
|
@@ -75,4 +76,14 @@
|
|
|
75
76
|
|
|
76
77
|
### 補足情報（FW/ツールのバージョンなど）
|
|
77
78
|
|
|
79
|
+
|
|
80
|
+
ほかのbookから貼り付けます。
|
|
81
|
+
|
|
82
|
+
L列の文字が入っているセルを削除しようとします。
|
|
83
|
+
|
|
84
|
+
真っ白になる。
|
|
85
|
+
|
|
86
|
+
下にスクロースすると、一番上の貼り付けたセルが、一番下に降りてしまう。
|
|
87
|
+
|
|
78
|
-
こ
|
|
88
|
+
と、こんな感じになってしまいます。
|
|
89
|
+
わかりにくいかもしれませんが、よろしくお願いします。
|