質問編集履歴
2
コードの挿入
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
|
31
|
-
Dim wb As Workbook
|
|
31
|
+
```Dim wb As Workbook
|
|
32
32
|
|
|
33
33
|
Dim sh As Worksheet
|
|
34
34
|
|
|
@@ -138,6 +138,10 @@
|
|
|
138
138
|
|
|
139
139
|
|
|
140
140
|
|
|
141
|
+
コード
|
|
142
|
+
|
|
143
|
+
```
|
|
144
|
+
|
|
141
145
|
|
|
142
146
|
|
|
143
147
|
|
1
コードを囲みました。画像を挿入しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -84,7 +84,7 @@
|
|
|
84
84
|
|
|
85
85
|
Private Sub CommandButton1_Click()
|
|
86
86
|
|
|
87
|
-
|
|
87
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
88
88
|
|
|
89
89
|
'開始する行
|
|
90
90
|
|
|
@@ -106,13 +106,15 @@
|
|
|
106
106
|
|
|
107
107
|
Next
|
|
108
108
|
|
|
109
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
110
|
+
|
|
109
111
|
End Sub
|
|
110
112
|
|
|
111
113
|
|
|
112
114
|
|
|
113
115
|
Sub Tumeru()
|
|
114
116
|
|
|
115
|
-
|
|
117
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
116
118
|
|
|
117
119
|
j = 5
|
|
118
120
|
|
|
@@ -130,7 +132,7 @@
|
|
|
130
132
|
|
|
131
133
|
Next k
|
|
132
134
|
|
|
133
|
-
|
|
135
|
+
'''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
134
136
|
|
|
135
137
|
End Sub
|
|
136
138
|
|
|
@@ -152,4 +154,24 @@
|
|
|
152
154
|
|
|
153
155
|
|
|
154
156
|
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
ほかのbookから貼り付けます。
|
|
160
|
+
|
|
161
|
+
|
|
162
|
+
|
|
163
|
+
L列の文字が入っているセルを削除しようとします。
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
真っ白になる。
|
|
168
|
+
|
|
169
|
+
|
|
170
|
+
|
|
171
|
+
下にスクロースすると、一番上の貼り付けたセルが、一番下に降りてしまう。
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
155
|
-
こ
|
|
175
|
+
と、こんな感じになってしまいます。
|
|
176
|
+
|
|
177
|
+
わかりにくいかもしれませんが、よろしくお願いします。
|