�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ�������܂��B����́A���[�N�V�[�g����̃��\�b�h�AMove�ACopy�AAdd�ADelete�ɉ����āAArray���ɂ�镡�����[�N�V�[�g�̎Q�ƁA�C�x���g������Function�v���V�[�W���Ȃǂ̎g�����ɂ��āyWindows 10�AExcel 2016�ɑΉ��z�B
�@�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ��������{�A�ځuExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O�����v�B����̓V�[�g�i���[�N�V�[�g�j�̑���ɂ��ĉ������B�A�ڑ�4��́uExcel�̊�{�I�u�W�F�N�g�w�Z���x�̎Q�ƁA�ړ��A�R�s�[�A�I���A�}���A�폜�v�ł́AExcel�̃Z���ɂ��Ă��܂��܂ȑ��������������AExcel���N�����čŏ��ɖڂɂ���u�Z���v�������ɏW�܂�����ʂ��u�V�[�g�v���B����ɁA�u�V�[�g�v���W�܂������̂��u�u�b�N�v�Ƃ����B
�@�ʏ�Excel���g�p����ꍇ�A1�V�[�g�����g���Ƃ������Ƃ͂قƂ�ǂȂ��B�O��܂ł̘A�ڂł��A�V�[�g�̑���ɂ��Ă͎��ܐG��Ă����B
�@�Ⴆ�A�����̃V�[�g��lj����āA�u1�����̔���v�u2�����̔���v�c�c�u12�����̔���v�Ƃ����悤�ɁA�e���̔�����V�[�g�ʂɊǗ����邱�Ƃ͂悭����B���̂悤�ɁA�ʂȃV�[�g�̃f�[�^���A�u�W�v�v�Ƃ����V�[�g��p�ӂ��āA�����ň�C�ɏW�v�����邱�Ƃ��ł���B
�@�V�[�g�̑�����o����ƁA�Ɩ��������̎�@�ɕ����ł��A�f�[�^�̊Ǘ������₷���Ȃ闘�_������B����́A�V�[�g�̑����VBA�łǂ̂悤�Ɏ�������̂����������B���ЁA�}�X�^�[���Ċe�E��ʼn��p���Ă��炢�����B��i����̂��Ȃ��ւ̕]�����オ�邱�Ɛ��������ł���B
�@�ŏ��́A�V�[�g��lj�����Ƃ��납����낤�B�V�[�g��lj�����ɂ͐}1�̂悤�ɉ�ʂ̍������ɂ���m���Ɂ{�n�̃A�C�R�����N���b�N����B
�@�ŏ��̏�Ԃł́uSheet1�v�������lj�����Ă���B�m���Ɂ{�n�̃A�C�R�����N���b�N����ƁA�����I�ɁuSheet2�v�uSheet3�v�c�c�uSheet6�v�ƒlj�����Ă����i�}2�j�B
�@�lj����ꂽ�V�[�g�̖��O��ύX����ɂ́A�Ⴆ��Sheet1�Ȃ�uSheet1�v�̏�Ń_�u���N���b�N����B����ƁA�ҏW��ԂɂȂ��ăV�[�g�����ύX�ł���B���̗�ł͊e�V�[�g���u1�N���v�`�u6�N���v�Ƃ������̂ɕύX�����i�}3�j�B
�@�V�[�g���lj��ł����Ƃ���ŁA���̓V�[�g�̎Q�Ƃ��s���B�e�w�N�̃V�[�g��I�����鏈����VBA�ŏ����Ă݂悤�B
�@���̑O�ɁA�}3�̏�Ԃ���u1�N���v��I�����āA�}�E�X�̉E�N���b�N�ŕ\������郁�j���[����A�m�}���n��I������B�u�}���v��ʂ��\�������̂ŁA�m�W���n�^�u����u���[�N�V�[�g�v��I�����āmOK�n�{�^�����N���b�N����B
�@����ƁA�u1�N���v�V�[�g�̑O�ɁuSheet7�v���lj������B����Sheet7���u���j���[�v�Ƃ������ږ��ɕύX����i�}4�j�B
�@���ɁA�u���j���[�v�V�[�g��I�����āA�u���j���[�v�V�[�g���Excel���j���[�́m�}���n���m�}�`�n�ƑI�����āA�u�p�ێl�p�`�v��6�z�u���āA���O�Ɂu1�N������v�`�u6�N������v�Ƃ��Ă����B�}5�̂悤�ȃ��j���[������Ă����B
�@VBE���N�����ă��X�g1�̃}�N�����L�q���悤�B�e�w�N�̃V�[�g��I������ɂ�Select���\�b�h���g�p���邾�����B���̊e�}�N�����{�^���Ɋ֘A�t���邾���ŁA�N���b�N�����{�^���̃V�[�g���I�������B
Option Explicit Sub ��N���V�[�g�̑I��() Worksheets(2).Select End Sub Sub ��N���V�[�g�̑I��() Worksheets(3).Select End Sub Sub �O�N���V�[�g�̑I��() Worksheets(4).Select End Sub Sub �l�N���V�[�g�̑I��() Worksheets(5).Select End Sub Sub �ܔN���V�[�g�̑I��() Worksheets(6).Select End Sub Sub �Z�N���V�[�g�̑I��() Worksheets(7).Select End Sub Sub ���j���[�ɖ߂�() Worksheets(1).Select End Sub
�@Worksheets�̃R���N�V�����ɃC���f�b�N�X�ԍ��Ƃ��āA�V�[�g�̔ԍ����w�肵�ASelect���\�b�h�őI����Ԃɂ���B�uWorksheets(1)�v�́u���j���[�v�V�[�g�ɂȂ�̂ŁA�u1�w�N�v�V�[�g�́uWorksheets(2)�v�ɂȂ�AIndex��1�������B
�@�܂��AIndex�Ŏw�肵�Ȃ��Łu�V�[�g���v�Ŏw�肷�邱�Ƃ��ł���B�Ⴆ���j���[�ɖ߂�Sub�v���V�[�W���͉��L���X�g2�̂悤�ɏ������Ƃ��ł���B
Sub ���j���[�ɖ߂�() Worksheets("���j���[").Select End Sub
�@Index�̑���Ɂu���j���[�v�Ƃ����V�[�g���ڎw�肵�Ă���B
�@�uSub���j���[�ɖ߂�v�v���V�[�W���́A�e�w�N�̃V�[�g���I�����ꂽ�Ƃ��A���̃V�[�g���烁�j���[�ɖ߂��悤�Ɂu���j���[�ɖ߂�v�{�^���ɒlj�����v���V�[�W�����B
�@�����̃}�N�����u���j���[�v�V�[�g�ɔz�u�����{�^���Ɗ֘A�t����B�܂��I�����ꂽ�V�[�g�ɂ́u���j���[�ɖ߂�v�{�^���Ɂu���j���[�ɖ߂�v�}�N�����֘A�t����B
�@�}�N�����֘A�t������@�͘A�ڂŊ��ɉ��x���o�Ă��Ă���̂ŁA�������������Ɣ��f���āA�����͏ȗ�����B
�@���s����ƁA�}6�̂悤�ɂȂ�B
�@���y�[�W�ł́A�����̃��[�N�V�[�g���Q�Ƃ��Ă݂悤�B
Copyright © ITmedia, Inc. All Rights Reserved.