simple����
str�ɂ͔N���V�[�g
20254
20255
20256
20257
20258
20259
202510
202511
202512
20261
20262
20263
�̊e�Z���l��
str1�ɂ�
��L�N���V�[�g��
�e�Z���l������4�����̒l
2025
2026
sheetName�ɂ�
str����str1������
4
5
6
7
8
9
10
11
12
1
2
3
������܂�
��قǂ��w�E������������������������
Application.SheetsInNewWorkbook = 1
wb.Close (False)��wb.Close (True)�ɂ���
���[�v�̂Ƃ���� Activate�������
Next nengetuCell
addWs.Activate
wb.Close (True)
�ύX�H�lj��H�ł���悤�ɂȂ�܂���
�����A
�]��
4,5,6,7,8,9,10,11,12,1,2,3 �Ƃ����V�[�g�ł͂Ȃ�
3,2,1,12,11,10,9,8,7,6,5,4,Sheet1
�Ƃ������ʂɂȂ��Ă��܂��Ă��܂�